Help for this page

Select Code to Download


  1. or download this
    use strict;
my ($saved_name, $number) = split /\s/, <DATA>;
...
JIM    18
JIM    87
CHRIS  33
  2. or download this
    GEORGE 21
       45
...
JIM    18
       87
CHRIS  33