my $i;
while($i < $#array/2) {
    my $copy = $array[$i];
    $array[$i] = $array[-$i];
    $array[-$i] = $copy;
    ++$i;
}