Select Code to Download

$aref = []; $href = {}; $sref = \""; 

...
    eval { my @x = @{$rin} };
    return "$str is ARRAY\n\n" unless $@;
}

ref($aref) = ARRAY
$aref is ARRAY
...

ref($blessed) = ARRAY
$blessed is SCALAR