# https://theweeklychallenge.org/blog/perl-weekly-challenge-207/ my %AtRow = <qwertyuiop asdfghjkl zxcvbnm>.map({ .comb.all => $++ }); put $*IN.words.grep({ [==] %AtRow{ .lc.comb } });