sub foo(\%hash_ref);
sub foo(\@array_ref);

sub foo {
  if (%{ $_[0] }) {
    my %hash = %{ $_[0] };
  } 
  else {
    my @array = @{ $_[0] };
  } 
}