Select Code to Download

#!/usr/bin/perl

...
17    A    16    18    27    17
18    A    17    19    26    18
19    C    18    20    25    19

neil@ettin ~/src/perltest $ ./foo.pl 
$VAR1 = {
...
          'A' => '26',
          'U' => '0'
        };