Select Code to Download

use warnings;
use strict;
...

dump(\%managers);
print Dumper(\%managers);

{ Joe => [12, 45], Mike  => [7, 14], Rich => [17, 10]}

$VAR1 = {
          'Joe' => [
...
                      '14'
                    ]
        };