my $path = './space/dir/';
my %dirs = (
    'traffic' => { array => 'Referenz', sub => \&traffic },
    'packetloss' => { array => 'Referenz', sub => \&packetloss},
    'JitterIN' => { array => 'Referenz', sub = \&iitter_in},
    'jitterOUT' => { array => 'Referenz', sub = \&jitter_out },
    'PacketLossIN' => { array => 'Referenz', sub => \&packet_loss_in },
    'PacketLossOUT' => { array => 'Referenz', sub => \&packet_loss_out },
);

while (my ($dir, $value) = each %dirs) {
    my @param = ($path, $value->{array});
    $value->{sub}->(@param);
}