use strict; use warnings; # my $line = "2 1"; my $line = <>; chomp $line; my ( $self, $rival ) = split / /, $line; if ( $self == $rival ) { print "Drew\n"; } elsif (( $self == 0 and $rival == 1 ) or ( $self == 1 and $rival == 2 ) or ( $self == 2 and $rival == 0 ) ) { print "Won\n"; }else { print "Lost\n" }