my %count_hash;
for my $line (@data) {
     $count_hash{$line} ++;
}

##</code><code>##

my @sorted_data = sort { length $a <=> length $b || $count_hash{b} <=> $count_hash{$a} } keys %count_hash;

##</code><code>##

my @sorted_data = sort { length $a <=> length $b || $count_hash{$b} <=> $count_hash{$a} } keys %count_hash;