my $eins = {"indirekt.txt" =~ /(.+)\.txt/ => "value"};
my %zwei; $zwei{"direkt.txt" =~ /(.+)\.txt/} = "value";