Проверка - является ли переменная ссылкой на массив

[Phoinix]

У меня в процедуру, передается переменная, но она божет быть как обычной переменной, так и ссылкой на массив, в зависимости от этого с ней будут проводится соответствующие действия, но как определить авляется ли переменная ссылкой или же нет?
Ничего кроме как:

if ($scalar =~m /^ARRAY\\(\\w*\\)$/) {...

я не придумал.

При условии:

if (@{$scalar}) {...

возвращается ошибка.

Существует ли другая возможность проверки переменной?

[Chs]

perldoc -f ref

[commander]

#!/usr/bin/perl -w
use strict;
my $var;
#$var->

• {\'go\'}="GO!";

if (ref($var) eq "ARRAY")
{
print "GOOD!";
}
else
{
print "NOT GOOD!";
}

[Phoinix]

Chs
commander

Спасибо... в принципе, я ман прочитал, там все понятно...