foreach my $server (@servers)
 {
  my $in="$server\.txt";
  open IN,"<$in" or next;
  my @CurType=grep /\.$type/i, <IN>;
  close IN;
  print OUT $total+=(stat)[7]/1000," KB\n" for @CurType;
 }