my $param2 = shift @ARGV; #commented out in the code above