print "$_ =>\n" 
  for qw/ 1 12 123/; 

##</code><code>##

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