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;
}