use Scalar::Util 'looks_like_number';

my $a = [ ];
my $h = { };

print looks_like_number($a), "\n";
print looks_like_number($h), "\n";