my @diskline=`grep DISKBUSY $nmondir/$files_by_date{$date} | grep -v Busy`;
    foreach my $line (@diskline) {
      chomp ($line);
      my @diskarray=split /,/, $line;
      shift @diskarray;
      shift @diskarray;
      for my $i (0..$#diskarray) {
           $disks_by_date{$date}[$i]=join ',', $disks_by_date{$date}[$i],$diskarray[$i]
      }
   }
 my @memline=`grep ^MEM, $nmondir/$files_by_date{$date} | grep -v Memory`;
    foreach my $line (@memline) {
      chomp ($line);
      my @memarray=split /,/, $line;
      my $rused=100-$memarray[2];
      my $mused=100-$memarray[3];
      $mem_by_date{$date}[0]=join ',', $mem_by_date{$date}[0],$rused;
      $mem_by_date{$date}[1]=join ',', $mem_by_date{$date}[1],$mused;
    }
 my @pageline=`grep ^PAGE, $nmondir/$files_by_date{$date} | grep -v Paging`;
    foreach my $line (@pageline) {
      chomp ($line);
      my @memarray=split /,/, $line;
      my $fsin=$memarray[3]-$memarray[5];
      my $fsout=$memarray[4]-$memarray[6];
      my $recrate= ($memarray[7] == 0) ? 0 : $memarray[8]/$memarray[7];
      $mem_by_date{$date}[2]=join ',', $mem_by_date{$date}[2],$fsin;
      $mem_by_date{$date}[3]=join ',', $mem_by_date{$date}[3],$fsout;
      $mem_by_date{$date}[4]=join ',', $mem_by_date{$date}[4],$recrate;
      }

   my $numinterfaces=int(($#{$net_by_date{$date}}+1)/7);
    my $numl1=$numinterfaces*2;
    my $numl2=$numinterfaces*4;
    my @dataline1=`grep ^NET, $nmondir/$files_by_date{$date} | grep -v Network`;
    foreach my $line (@dataline1) {
      chomp ($line);
      my @netarray=split /,/, $line;
      shift @netarray;
      shift @netarray;
      for my $i (0..$#netarray) {
      $net_by_date{$date}[$i]=join ',',$net_by_date{$date[$i],$netarray[$i];
      }
    }
   my @dataline2=`grep NETPACKET $nmondir/$files_by_date{$date} | grep -v Network`;
    foreach my $line (@dataline2) {
      chomp ($line);
      my @netarray=split /,/, $line;
      shift @netarray;
      shift @netarray;
      for my $i (0..$#netarray) {
      $net_by_date{$date}[$i+$numl1]=join ',',$net_by_date{$date}[$i+$numl1],$netarray[$i];
      }
     }
    my @dataline3=`grep NETERROR $nmondir/$files_by_date{$date} | grep -v Network`;
    foreach my $line (@dataline3) {
      chomp ($line);
      my @netarray=split /,/, $line;
      shift @netarray;
      shift @netarray;
      for my $i (0..$#netarray) {
      $net_by_date{$date}[$i+$numl2]=join ',',$net_by_date{$date}[$i+$numl2],$netarray[$i];
      }
    }