my @sorted = map{$_->[0]}sort{$a->[1] <=> $b->[1]}@entries;