@ARGV = glob('*.txt');

while (<ARGV>) {
   # Do some clever stuff with $_
   # $ARGV contains the current file name
   print "$ARGV $_";
}