Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
JIM    18
JIM    87
CHRIS  33
  2. or download this
    GEORGE 21
       45
...
JIM    18
       87
CHRIS  33
  3. or download this
    print
   map  {sprintf qq{%-7s%2d\n}, @$_}
...
   sort {$a->[0] cmp $b->[0]}
   map  {[split]}
   <DATA>;