my %sequences = map {chomp; $_ => 1} <DATA>;
my @sequences = (keys %sequences)[0 ..9];
say "@sequences";