一週間がんばりましたが、どうしてもわかりません。
最後の望みを託してエキスパートのみなさんにすがります。宜しくお願い
致します。

#/usr/local/bin/perl
@i = ( "AAA 100 80",
"BBB 500 500",
"AAA 400 420");

foreach $line (@i) {
split(/\s/, $line);
$key = $_[0];
$hash{$key} = $line;
print "$key $hash{$key}\n";
}

これを実行すると、

AAA => AAA 100 80
BBB => BBB 500 500
AAA => AAA 400 420

となります。あとは、AAA,BBBごとに右の数字を足していきたいのです。
簡単に言えば集計プログラムです。最終的に

AAA => AAA 500 500
BBB => BBB 500 500

となれば成功です。どんなにやってもわかりません。頭も痛くなって
きました。ぼくに秘伝を伝授して下さい。どうか、お願いします。