my %hash={};
my $hlen = get_infos(\%hash);
print(@{$hash{"hallo"}}[0] . "\n");

sub get_infos {
	my($hash) = @_;
	my $key = "hallo";

	push(@{$hash->{$key}},$irgendwas);
	return keys %$hash;
}