tito Memo

@a = ( 'a','d','g','j','m','p','t','w');
foreach( @a ){
    rem( $_, $_, 2 );
}
sub rem
{
    my( $u, $x, $n ) = @_;
    my( $i);
    foreach $i ( @a ){
        if( $i ne $x ){
            if( $n> 1 ){
                rem( "$u$i", $i, $n-1);
            }
            else{
                print "$u$i\n";
            }
        }
    }
}