Select Code to Download

use strict;
use warnings;
...
    print qq{     $_\n} for @tuples;
    print qq{     Left over: $set\n} if $set;
}

AAAAADDDDDEFFGMMSSTVVVVV
     AAAA
...
     MMMM
     MMMM
     MSTV