print "not ref:\n";
test(dogs=>'bark', cats=>'miaow');

print "ref:\n";
test({dogs=>'bark', cats=>'miaow'});

sub test{
  my $params;                                  
  ref($_[0]) ? $params = shift : $params = {@_};
  print Dumper($params);
}