#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 1;
my %z = ( a => 'b' );
my @x = ( 'a', 'b' );
my @y = ();
push @y, %z;
is_deeply (\@x, \@y);