my $hRef = {
  a => 1,
  b => 2,
};

for my $bla ( %$hRef ) {
  print $bla, "\n";
}