请教用脚本处理文本的问题

有一个文本 每行用空格分成了3段  一共大概 几十行 格式如下：
xxx     aaa    1000
xxx     aaa    999
xxx     aaa    998
...
xxx     aaa    123
yyy      aaa    890
yyy      aaa    870
yyy      aaa    230
第一段有很多行是重复的 第二段都一样 第三段是数字 在第一段相同的行里逐渐减小
我想 把每行第一段相同的行中  数字最大的扣出来 其他不要  如果是上面的例子既输出：
xxx    aaa    1000
yyy    aaa     890
想用perl或者shell  请高手给个例子

没测试，不知道对不对...呵呵 看看
#！ /usr/bin/perl -w
fopen(FL,"file") || die "cannot open file for read！\n";
while(<FL>){
$prex=$data[0];
@data=split('\s+',$_);
if($data[0]！=$prex){
if($prex！=~m"^\s+$"){
     $i++;
}
}
if($max[$i]<$data[2]){
$max[$i]=$data[2];
$line[$i]=$_;
}
}
close(FL);

多谢 ,我来试一下