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