#!/usr/bin/perl

 use strict;
 use warnings;

 ################################################
 #
 #  Create File with Avg CPU Numbers for each Server  #  Name
 #
 ###############################################

  my %usage;
  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>) {

  chomp($line);
   my ($server, @data) = (split(“,”,$line));
  
   if ($data[0] lt “!” )  {
      $data[0] = 0;
   }

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

   $usage{$server} = [] unless exists $usage{$server};
   push @{$usage{$server}}, 0 while @{$usage{$server}}                 < $files;
    push @{$usage{$server}}, $data[0];
    }
    continue {
      $files++ if eof;
    }

    close $fh or die “Can’t close file $file: $!”;