Select Code to Download

use UNIVERSAL qw( isa );

...
if ( isa($value, 'HASH') || isa($value, 'ARRAY') ) {
    # Do something here
}

use Scalar::Util qw( blessed reftype );

...
if ( $r eq 'HASH' || $r eq 'ARRAY' ) {
    # Do something here
}