Select Code to Download

#!/usr/bin/perl

...
}

print Dumper %count;

$VAR1 = 'file.200206';
$VAR2 = {
...
          'chris' => '1',
          'lisa' => '1'
        };