my ($r_stats,$i_stats) = ($stats->{r_stats}->{Processes},$stats->{i_stats}->{Processes});

if ($i_stats->{$pid}->{sProcStartTime} && $r_stats->{$pid}->{sProcStartTime} eq $i_stats->{$pid}->{sProcStartTime}) {
   for my $key (qw(sProcMinFLT sProcCMinFLT sProcMayFLT sProcCMayFLT sProcUTime sProcSTime sProcCUTime sProcCSTime)) {
      my $tmp                   = $r_stats->{$pid}->{$key};
      $r_stats->{$pid}->{$key} -= $i_stats->{$pid}->{$key};
      $r_stats->{$pid}->{$key}  = sprintf('%.2f', $r_stats->{$pid}->{$key} / ($uptime - $i_stats->{uptime})) if $r_stats->{$pid}->{$key} > 0;
      $i_stats->{$pid}->{$key}  = $tmp;
   }
}