my @ARGV = glob("*.txt");
foreach my $ARGV {