my @files=<*.text>;#scans for .txt extensn in the curent dir
local @_=@files;
foreach my $file(<>)