my @diffs = map { my $diff = $_->[0]-$_->[1]; $diff*$diff } @Connections;

my @sorted_indices = sort { $diffs[$a] <=> $diffs[$b] } 0..$#Connections;