Select Code to Download

my @list = qw(AGCT AGGT GG AGCT);

...
my @unique = grep {defined} @list;

print "$_\n" for @unique;

use strict;
use warnings;
...
my @unique = grep {defined} map {@$_} values %bucket;

print "$_\n" for @unique;