%hash = ();
for (1..10) {
    $hash{$_} = $_*$_;
}

print "keys: ", join " ", keys %hash, "\n", "values: ", join " ", values %hash;