foreach $cmd ('WBU', 'RTT') { my ( $time, $interval, $n_elements, @data ) = split(/,/, $Client{$client}{$cmd}); my $seconds = &UnixDate("$time","%s"); foreach (@data) { if ($cmd eq 'RTT') { $interval = 60; ### interval not set correctly in dataset $value = sprintf("%0.2f", ($_/1000)); } else { $interval = 30; ### interval not set correctly in dataset $value = sprintf("%0.2f", (($_*8)/1000)); # Convert to bits then / by 1000 for graphing } $fivemin = (int($seconds/300))*300; $Counter{$fivemin}++; $Tot{$fivemin}+=$value; $Max{$fivemin}=$value if ($value>$Max{$fivemin}); $Min{$fivemin}=$value if (($value<$Min{$fivemin})or(!$Min{$fivemin})); $seconds+=$interval; }