47

47.pl

#!/usr/bin/env perl

use strict;
use warnings;

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

my @rev_num = reverse @num;

for my $i (0..999){
  my $sum = $num[$i] + $rev_num[$i];
  if ($sum == 1001){
    print "$i => ok\n";
  }else{
    print "$i番目の要素の合計は$sumです。\n";
  }
}