@ARGV = @ARGV[2..$#ARGV];

# or for the paran paranoid:
@ARGV = (@ARGV)[(2..$#ARGV)];

##</code><code>##

my $discard1 = shift;
my $discard2 = shift;