my @sorted = map{$_->[0]}@entries;