Select Code to Download

use strict;
use warnings;
...
DAVID 31
DAVID 29
DAVID 41

$VAR1 = {
          'DAVID' => [
...
                       '41'
                     ]
        };