my $bwt = join('', 
    map{substr($text, ($_ - 1), 1)} 
    sort{
        (substr($text,$a).substr($text, 0, $a)) 
            cmp 
        (substr($text, $b).substr($text,0, $b))
    } 0..length($text)-1
);