my ( $one, $two ) = splice @ARGV, 0, 2;