local @ARGV = <*.text>;#scans for .txt extensn in the curent dir
while ( my $line = <> )