use Data::Dumper;
my %hash = ();
for(0..$#server){
  $hash{$_}->{$server[$_]}->{$pfad[$_]}->{$Datei[$_]} = 'start.html';
}