@$aref = @$aref[++$mid..$#$aref];
...
@$aref = @$aref[0..--$mid];