use strict ;

my @n = qw( xx xy yx yy ) ;
my @m = @n ;

foreach my $outer ( @n )
{
    foreach my $inner ( @m )
    {
        print crypt( 'perlmonk', $inner ) eq crypt( 'perlmonk', $outer ) ?
          '1' : '0' ;
    }
    print "\n" ;
}

##</code><code>##

1000
0100
0010
0001