Select Code to Download

$array[1]->{Contact} = [];

...
          Contact_Name => 'Mr. Bean');

push @{$array[1]->{Contact}}, \%hash;