for($i=0;$i<=scalar @array;$i++)
{
@ans=splice(@array,0,4);
$join=join('',@ans);
push(@answer,$join)
}
print "@answer\n";