>>938
こんなじゃだめなの?

$LIST = [1,2,3];
$HASH = {1 => 2, 3 => 4};

if ($LIST =~ /^ARRA/)
{print "LISTn"}
elsif ($LIST =~ /^HASH/)
{print "HASHn"}