my %hosts;
# iterieren über zeilen
# extrahieren von host, user, tp, ...
push @{ $hosts{ $host } }, {
    user => $user,
    tp   => $tp,
};