use strict;

my @Server = qw(google google google web  gmx );
my @Pfad   = qw(start  start  test   mail sms );
my @Datei  = qw(index  start  login  test send);

my @AoH    = ();

my $l      = scalar @Server;

die "unterschiedlich große Arrays" if $l != scalar @Server or
                                       $l != scalar @Pfad   or
                                       $l != scalar @Datei  ;

for my $index (0..$l-1) {
     push @AoH, {
                  server => $Server[$index],
                  pfad   => $Pfad  [$index],
                  datei  => $Datei [$index],
                }
}

use Data::Dumper;

print Dumper \@AoH;