for my $source (sort traffic_combined keys %data)
        {    
            print "$source data transfer out: $data{$source}{$all}.\n";
            my $traffic_machine = sub
            {
                $data{$source}{$b} <=> $data{$source}{$a}
            }
            
            for my $destination (sort $traffic_machine keys %{$data{$source}})
            {
                next if ($destination eq $all);
                print "$source -> $destination: $data{$source}{$destination}.\n"
+;
            }
        }