my $hashref  = {};
my $arrayref = [];
my $coderef  = sub {};
my $scalar   = '';

print "[", ref, "]\n"
    for $hashref, $arrayref, $coderef, $scalar;

##</code><code>##

[HASH]
[ARRAY]
[CODE]
[]