for ($i=1;$i<=3;$i++)
 {
  $ingang=<>;
  chomp $ingang;

  ($a[$i,1],$a[$i,2],$a[$i,3],$a[$i,4],$a[$i,5],$a[$i,6],$a[$i,7])=split('',$ingang);
 }

print "Resultaat\n";

for ($p=1;$p<=3;$p++)
 {
  for ($j=1;$j<=7;$j++)
   {
    print $a[$p,$j];
   }
  print "\n";
 }