my ($server, @data) = (split(“,”,$line));

##</code><code>##

my ($server, $data) = (split(“,”,$line));

##</code><code>##

my ($server, $data) = split ',', $line, 2;

##</code><code>##

   if ($data[0] lt “!” )  {
      $data[0] = 0;
   }

   next if grep /[^0-9.]/, @data;

##</code><code>##

    next if $data =~ /[^0-9.]/;

##</code><code>##

    push @{$usage{$server}}, 0 while @{$usage{$server}} < $files;
    push @{$usage{$server}}, $data[0];


##</code><code>##

    $usage{$server}->[$files] = $data unless $usage{$server}->[$files]

##</code><code>##

  continue {
    $files++ if eof;
  }
  close $fh or die "Can’t close file $file: $!";

##</code><code>##

my $files = 0;
for my $file ("sfull1ns.dat","sfull2ns.dat","sfull3ns.dat")  {
  open (my $fh,'<',$file) or die "Can’t open file $file: $!";
  while (my $line = <$fh>) {
  ...
  }
  $files++
  close $fh or die "Can’t close file $file: $!";
}

##</code><code>##

print "$_," . (join ',', @{$usage{$_}}) . "\n" for (keys %usage);

##</code><code>##

for (keys %usage) {
  for my $f (0,1,2) {
    $usage{$_}->[$f] = 0 unless defined $usage{$_}->[$f];
} }