Select Code to Download

use strict;
use warnings;
...
    %temp = @_;
    return \%temp;
}

$VAR1 = {
          'part_2' => {
...
                        'third' => '3'
                      }
        };