in reply to Determining the type of a subroutine parameter

Have a look at ref 
my ( $scalar, @array );

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

sub foo {
    print ref $_[0], "\n";
}
__END__
SCALAR
ARRAY

[download]

Unless I state otherwise, all my code runs with strict and warnings

In Section Seekers of Perl Wisdom