my ($weird, @rest) = @ARGV;
@ARGV = $weird;
while (<>) { ... }
@ARGV = @rest;
while (<>) { ... }