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