if (exists($r1{$key})){
    $r1{$key} += $f[02];
}
else { 
    $r1{$key} += $f[02];
}