$i   = 0;
@arr = (1,2,3,4);
$mid = $#arr/2;

while ($i <= mid) {
  $tmp        = $arr[$i];
  $rear       = $#arr-mid;
  $arr[$i]    = $arr[$rear];
  $arr[$rear] = $tmp;
  ++$i;
}