#!/afs/athena/contrib/perl/p
while(<>){
    (@foo)=split;
    if($foo[1] eq '4.00'){
	$four[$el] = $foo[4];
    }
    elsif($foo[1] eq '5.00'){
	$five[$el] = $foo[4];
    }
    elsif($foo[1] eq '6.00'){
	$six[$el] = $foo[4];
    }

    $el++ if $foo[8] eq '*';
}

for $i (0..$el-1){
#    print($five[$i].", ");
}
#print("\n");
$dfive = $five[0]-$five[1];
$dfour = $four[0]-$four[1];
$dsix = $six[0]-$six[1];
printf("%.4f, %.4f, %.4f\n",$dfour, $dfive, $dsix);