use strict;
use warnings;

my $salt   = q{zy};
my $passwd = q{};

for ( q{a} .. q{m} )
{
    $passwd .= $_;
    my $encrypted = crypt $passwd, $salt;
    printf qq{%-3s%-15s%13s\n},
       $salt,
       $passwd,
       $encrypted;
}

##</code><code>##

zy a              zysdihJ0gvwVY
zy ab             zy4zYYneKaYuc
zy abc            zyVTopNmDAhDM
zy abcd           zyaO8uXTZHk.Q
zy abcde          zyIALca4k5yc2
zy abcdef         zyTUr1c/J9ROc
zy abcdefg        zyB0MLdTVOSYY
zy abcdefgh       zyQskE0hBAgLs
zy abcdefghi      zyQskE0hBAgLs
zy abcdefghij     zyQskE0hBAgLs
zy abcdefghijk    zyQskE0hBAgLs
zy abcdefghijkl   zyQskE0hBAgLs
zy abcdefghijklm  zyQskE0hBAgLs