my ($input1, $input2) = splice @ARGV, 0, 2;  # Make sure no arguments are left.