my($var,@var,%var);

&mysub(\$var);
&mysub(\@var);
&mysub(\%var);

sub mysub {
    my($ref) = shift;
    print "You want a scalar\n" if ref($ref) eq 'SCALAR';
    print "You want an array\n" if ref($ref) eq 'ARRAY';
    print "You want a hash\n"   if ref($ref) eq 'HASH';
}