use strict;

my $var = "whatever";       # try different values to see what happens

my $val = ref $var;
my $res = $val ? "Is a Refenence: $val" : "Not a reference";
print $res, "\n";
[download]

ref will return the type of reference(SCALAR,ARRAY,HASH,etc).

---

Amel
This is my cool %SIG