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

@arr=(1,2);

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

@arr=(3,4,5);

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