++ thought shift is acting by default on @ARGV:

my $first = shift; #clearer in your way
...
[download]