print "Key ist definiert\n" if defined $key;
print "Value ist defininiert\n" if defined $value;
my %hash;
$hash{$key} = $value;