sub foo { print "Type: ", ref $_[0], "\n"; }

my ( $scalar, @array );

foo( $scalar );
foo( \$scalar );
foo( \@array );


__END__
Type:
Type: SCALAR
Type: ARRAY