PWC207, Task 1

# https://theweeklychallenge.org/blog/perl-weekly-challenge-207/

my %AtRow = <qwertyuiop asdfghjkl zxcvbnm>.map({ .comb.all => $++ });
put $*IN.words.grep({ [==] %AtRow{ .lc.comb } });