my $text2 = "$text$text";
my $tlen = length($text);
my $bwt7 = join('', 
        map{ substr($$_, -1) }
        sort{ $$a cmp $$b }
        map{ \substr($text2, $_, $tlen) } 0..$tlen-1
);
print "$text: $bwt7\n";