use Data::Dumper;
my %hash = ();
for(0..$#server){
  $hash{$_} = [$server[$_],$pfad[$_],$datei[$_]];
}
print Dumper[\%hash];