%h = (aaa=>1, bbb=>2, ccc=>3);
get_types(\\%h);
sub get_types
{
for (keys %{$_[0]})
{
print "$_ => ${$_[0]}{$_} \\n";
}
}
Ну или красивее обернуть без переменных по умолчанию.
В хеше нет последнего элемента, ровно как и первого, это несортированный список, не путать с массивом.