48

48.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @num;
@num = (1..1000);

my @rev_num = reverse @num;

# エラーの時の挙動を調べる為に、
# my @sort_num = sort @rev_num;
# も試してみましょう。
my @sort_num = sort{$a <=> $b}@rev_num;

for my $i (0..999){
  if ($num[$i] == $sort_num[$i]){
    print "$i => ok\n";
  }else{
    print "$i番目の要素の\@numの値は$num[$i]、\@sort_numの値は$sort_num[$i]です。\n";
  }
}