SWITCH: for (ref $param) {
  /HASH/ && do {
    # Do something for hash ref
    last SWITCH;
  };
  /^$/ && do {
    # Do something for scalar
    last SWITCH;
  };
}

##</code><code>##

  /ARRAY/ && do {
    # Do something for array ref
    last SWITCH;
  };