while( my $file = pop @ARGV ) {