Select Code to Download

@sequences = sort { length($b) <=> length($a) } @sequences

use List::MoreUtils qw(any);
...
  push @uniq_sequences, $seq if
    any { index $_, $seq >= 0 } @uniq_sequences;
}