use strict;
use warnings;

my $a = 123;
my $aref = \$a;
my @b = (1,2,3);
my $bref = \@b;

print "[" . ref($a) . "]\n";
print "[" . ref($aref) . "]\n";
print "[" . ref($b) . "]\n";
print "[" . ref($bref) . "]\n";

##</code><code>##

use strict;
use warnings;

my $a = 123;
my $aref = \$a;
my @b = (1,2,3);
my $bref = \@b;

print UNIVERSAL::isa($aref, "SCALAR") + 0, "\n";
print UNIVERSAL::isa($bref, "ARRAY") + 0, "\n";