die PHP function "empty" übernehmen

[MrSpoocy]

Hi,

ich würde gern die function emty() aus PHP in Perl umsetzen.
Hab da schon folgenden ansatz:

sub empty($)  
{  
	my $string = shift;  
  
	unless (defined $string)  
	{  
		return 1;  
	}  
	  
	if ($string eq "" || int($string) eq 0)  
	{  
		return 1;  
	}  
  
	#if (ref($string) eq "HASH")  
	# && keys($string) <= 0  
return 0;  
}

my $xm = undef;
print emtpy($xm);
$xm = 0;
print emtpy($xm);
$xm = "0";
print emtpy($xm);
$xm = "";
print emtpy($xm);

alles soweit richtig, nun will ich aber noch auf ARRAY und HASH regieren.
my @xm = ("")
print emtpy(@xm);

my %xm = ();
print emtpy(%xm);

Man sieht in der function auch schon denkansetze aber die wollen nicht so, hat jemand nee idee wie man das umsetzen kann ?