use strict;
my @c = (); 


push @c, 10, 11, 12;
push @c, 65;

print join(" ",@c) . "\n";


my %h = ();

$h{'one'} = 1;
$h{'two'} = 2;

foreach my $i ( keys %h ) {
    print $i . " -> " . $h{$i} . "\n";
}