use bigint; @a=<>=~/\S+/g;@b=<>=~//g; $a[1]+=0;$b[1]+=0; print$a[1]>$b[1]?$a[0]:$a[1]<$b[1]?$b[0]:-1