Select Code to Download

use strict;
use warnings;
...
Barmparas, Galinos, 1410
Beal, Alan, 866
Beall, Dawson, 1062

$VAR1 = {
          'Beal, Alan,' => [
...
                                     '1120'
                                   ]
        };