my $value = $g_POIRead{ $schluessel }; print $value->[0]; #oder print $$value[0]; #oder my @array=@$value; print $array[0]