Perl: array shifting functions