#!/usr/bin/perl
use strict;
use warnings;

my $daten;
$daten->{"in"}->{"tcp"}->{"1234in"}=1;
$daten->{"in"}->{"tcp"}->{"1235in"}=2;
$daten->{"out"}->{"udp"}->{"1234out"}=3;
$daten->{"out"}->{"tcp"}->{"1235out"}=4;

foreach my $t1 (keys %{$daten}){
    print "Direction: $t1\n";
    foreach my $t2 (  keys $daten->{$t1}  ){
        print "Protokoll: $t2\n";
    }
}