#https://theweeklychallenge.org/blog/perl-weekly-challenge-207/
use strict; use warnings; use v5.10;

sub is_one_row_word { pop =~ /^( [qwertyuiop]+ | [asdfghjkl]+ | [zxcvbnm]+ )$/ix }

my @test = (
    ["Hello","Alaska","Dad","Peace"],
    ["OMG","Bye"]
);

for ( @ARGV ? ([@ARGV]) : @test ) {
    my @input = @$_;
    my @output = grep is_one_row_word($_), @input;
    say "Input: @input";
    say "Output: @output";
}