my @sorted_phrases_2;
# my $i = 0;
foreach (my $i = 0; $i <= $#sorted_phrases; $i++) {
local $_ = $sorted_phrases[$i];
if ($i == 1) {
print "BLA BLA XXX - \"$_->{count}\" " . Dumper($_);
if ($_->{count} < 1) {
my $chosen_id_now = $sorted_phrases[0]->{sort_number} + 1;
print qq|
Current sort was: $sorted_phrases[0]->{sort_number} , and new one is $chosen_id_now
|;
foreach my $tmp (@sorted_phrases) {
if ($tmp->{sort_number} == $chosen_id_now) {
push @sorted_phrases_2, $tmp;
}
}
}
} else {
push @sorted_phrases_2, $_;
}
}
@sorted_phrases = @sorted_phrases_2;