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;
}