my $x='';
for(1..9){
  $x.="\n" if $_%3==1;
  $x.= $_.' ';
}