sub f {
  my %args = do { ref($_=shift) eq 'HASH' or die "arg is not a hashref"; %$_ } ;
  ...
}