sub f {a => 1, b=>2} my %h = (c => 3); say keys %h, f(); #output: c #### D:\>perl -Mfeature=say sub f {a => 1, b=>2} my %h = (c => 3); say keys %h, f(); __END__ ca1b2 D:\>