my ( $a $aa $aaa $b $ab $ba $aab $aba $abb $baa $bab $bba $bbb );