Select Code to Download

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

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

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

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

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

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

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

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

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

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

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

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