my @array = (1, 2, 3);
my $aref = \@array;
showarray($aref);

my $text = 'some text';
my $ref = \$text;
my $blessed = bless($ref, 'ARRAY'); # bless the scalar reference into class ARRAY
showarray($blessed);

sub showarray {
  my $aref = shift;
  local $\ = $/; # set the output record seperator
  return if (!UNIVERSAL::isa($aref, 'ARRAY'));
  print ref($aref), ": @$aref";
}

__DATA__
ARRAY: 1 2 3
Not an ARRAY reference at reftype.pl line 14.