my @sorted_line_nums = map { $HashB{$_} } @sorted_words;