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