use strict;
use warnings;
@files = <*.tx>;		
print "@files \n";		

foreach $file (@files)
{
print " \n Working with file: $file \n";		

my @lines=(); 
open(INFO, $file)or die "Could not open file: $!" ; 
@lines=<INFO>;												
close(INFO);													
...
}