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