無駄な労力

sub array_reverse {

  my @list = @{$_[0]};

  my $amount = $#list;
  for (my $i=0, my $j=$amount; $i<$j; $i++, $j--) {

    my %tmp;

    $tmp = @list[$i];

    @list[$i] = @list[$j];

    @list[$j] = $tmp;

  }

  return @list;

}

配列の中身をひっくり返すarray_reverse()を書いた後に
reverse()があることを知った
しかも、for文の条件式を書くところに終了条件を書き込んでる
どういうわけか、ここに終了条件を書くものだと思い込んでいた
そりゃ１回も実行されねえやな
たかがfor文でなぜこんなことに？
わけがわからん