$ perl -wE 'my $h = bless { a => 1, b => 2 }; say keys %$h'
ab