#!/usr/local/bin/perl
use strict;
use warnings;
%h=('1', 'one', '2', 'two', '3', 'three');

##</code><code>##

@arr=(1,2);

##</code><code>##

foreach $key(keys %h)
{
push(@arr,$h{$key});
}
print @arr;

##</code><code>##

foreach $key(keys %h)
{
push(@arr,$$h{$key});

##</code><code>##

print "@arr\n";
}

##</code><code>##

push @arr, $href->{$key};