sub f { my %hash; @hash{ qw/ h s d / } = @_; # ... }