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

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