use v5.14;

my @allfiles = <C:/Users/user/Desktop/DOwork/filez/nabillingscript/09_14_2012/nas/*>;

 
for my $file (@allfiles)
{
     open (FILE ,'<', $file) or die $!;
     
     my $sumof = 0;                         
     while(<FILE>){
           my $lines = $_;
           my @kbused = split(/\s+/,$lines);
           push(my @kilo, $kbused[2]);                             

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