#!/usr/bin/perl
$chain="a";
for($i=0;$i<10;$i++)
{
 if(($i%3)==0)
{$chain=$chain."b";
 print"$chain\n";}
 else{
 $chain=$chain."a";
print"$chain\n";}
}