#!/usr/bin/perl

open FHAND, "<out.txt";
foreach (<FHAND>) {
  chomp;
  @fodder = split("");
  $val = 0;
  foreach (@fodder) {
    $stuff[$val] .= $_;
    $val++;
  }
}
close FHAND;
foreach (@stuff) {
  print "$_\n";
}