Perl Ref is an Array

Tuesday, January 1, 1980
if (ref $var eq 'ARRAY') {
    print "It's an ARRAY ref\n";
}
elsif (ref $var eq 'HASH') {
    print "It's a HASH ref\n";
}