Help for this page

Select Code to Download

Select or download this

@letter = qw/a b c w x y/;

...
  close(DATA);
  print "count $x = $m\n";  
}