for my $atm(keys %hash){
    print sprintf("%10s | %10s | %10s | %15s\n",$atm,'Daten1','Daten2','IP');
    for my $elem(@{$hash{$atm}}){
        my @array = ($elem->[0],split(/\//,$elem->[1]),$elem->[2]);
        print sprintf("%10s | %10s | %15s\n",' ',@array);
    }
}