perldoc -f unshift
       unshift ARRAY,LIST
               Does the opposite of a "shift".  Or the opposite
               of a "push", depending on how you look at it.
               Prepends list to the front of the array, and
               returns the new number of elements in the array.

                   unshift(ARGV, '-e') unless $ARGV[0] =~ /^-/;

               Note the LIST is prepended whole, not one element
               at a time, so the prepended elements stay in the
               same order.  Use "reverse" to do the reverse.
[download]

addendum: If you choose to use shift instead of unshift, you will not run out of memory, and you will see only one element ("1") printed out, which is maybe what you were expecting in the first place.