#!/usr/bin/evn perl use strict; use warnings; my ($sa, $pa, $xa) = split / /, <>; my ($sb, $pb, $xb) = split / /, <>; if($pa > $pb) { print "$sa\n"; } elsif($pa < $pb) { print "$sb\n"; } elsif($pa == $pb) { print "-1\n"; } exit;