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