#!/usr/bin/perl use strict; use warnings; my $p = <>; my @array; for(my $i = 0; $i < $p; $i++) { my ($n, $k) = split / /, <>; if(($n - 1)%($k + 1) == 0) { $array[$i] = 'Lose'; } else { $array[$i] = 'Win'; } } foreach (@array) { print "$_\n"; } exit;