sub reverse_array { my $ar = shift; my ( $head, $tail) = ( 0, $#$ar); while ( $head < $tail) { ($ar->[$head], $ar->[$tail]) = ( $ar->[$tail],$ar->[$head]); $head++; $tail--; } }