sub empty {
    my $r = shift;
    if(!ref $r) { return !$r }
    if(ref $r eq 'HASH') { return !keys %$r }
    if(ref $r eq 'ARRAY') { return !@$r }
    if(ref $r eq 'SCALAR') { return !$$r }
    return !1;    
}
$a = ''; $b = {}; $c = [];
if(empty($a) && empty($b) && empty($c)) { print "PASS"; }