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