Help for this page
print "$_ =>\n" for qw/ 1 12 123/;
{print "$_ =>\n" if $_=/1/ } for qw/ 1 12 123/;