Select Code to Download

use strict;
use warnings;
...

    print Data::Dumper->Dumpxs( [ \ %hash ], [ qw{ *hash } ] );
}

%hash = (
          'firstname' => 'bobby',
...
          'age' => '22',
          'gender' => 'M'
        );