for my $n (qw/1 12 123 234/) {
    print "$n =>\n" if $n=~/1/;
}