$zwei{("direkt.txt" =~ /(.+)\.txt/)[0]} = "value";