Select Code to Download

#!/usr/bin/perl -w

...
                    nine => 9 } );

print Dumper(\%data);

$VAR1 = {
          'A' => {
...
                   'four' => 4
                 }
        };