#!/usr/bin/perl
use strict;
use warnings;

my @array = ();

my %hashcont = ( first => 0, second => 5, last => 8 );

push( @array, \%hashcont );

my $hash_ref = $array[0];
my %hash_data = %{$hash_ref};
print "$hash_data{first}  $hash_data{second}  $hash_data{last}\n";
[download]