perl -le '@n = do { {@l = 1..5; @s = map {last if $_==4; "${_}a"} @l} }; print "qw(@s)\nqw(@n)"'
qw()
qw(1a 2a 3a 4 5)