my $file = shift @ARGV;  # get first argument
my $nfile = shift @ARGV; # get next argument