#!/usr/bin/perl --
use strict;
use warnings;
my %foo = 1..2;
my @bar = %foo;
push @bar, \%foo;
use Data::Dumper;
print Dumper( \@bar );
__END__
$VAR1 = [
          '1',
          2,
          {
            '1' => 2
          }
        ];