What?! No splice!? :P
my ( $one, $two ) = splice @ARGV, 0, 2; [download]
In reply to Re^3: mix arguments with normal input by Your Mother in thread mix arguments with normal input by bofinken