$poe_kernel->call( $session_id => send => "Results - sorted from most likely match to least likely: " ); my $rank = 1; foreach my $image (sort {$results_diff{$a} <=> $results_diff{$b} (keys(%results_diff))}) { my $basename = $training_data{$key}{basename}; $poe_kernel->call( $session_id => send => "$rank: $basename - difference: $results_diff{$image}"); }