@allfiles = <C:/Users/user/Desktop/DOwork/filez/nabillingscript/09_14_2012/nas/*>;
 
foreach $file (@allfiles)
{
     open (FILE ,"<", "$file");
                               
     while($lines=<FILE>)
         {
               my $sumof = 0;
               @kbused = split(/\s+/,$lines);
               push(@kilo, $kbused[2]);                             

               foreach $aline (@kilo)
               {
                     $aline =~ s/\D//g; 
                     push (@onlynums, $aline);  
                     $sumof += $_ for @onlynums;
                }
       }
                print "$sumof\n";
}
 
close FILE;