Select Code to Download

my $ref = [
    [2, [qw(g a t a c a)]],
    [3, [qw(a t a c a g)]],
    [1, [qw(t a c a g a)]],
];

print map {join('',@{$_->[1]})."\n"} sort {$a->[0] <=> $b->[0]} @$ref;