my $input = ; my @ls = split(/ /, $input); my $N = $ls[0]; my $K = $ls[1]; my $r = ""; if ($N == $K) { $r = "Drew"; } elsif ($N > $K){ if ($N - $K == 2) { $r = "Won"; } else { $r = "Lost"; } } else { if ($K - $N == 2) { $r = "Lost"; } else { $r = "Won" } }