use strict;
use warnings;

my $infile = \do{my $chars = "1111111\n2222222\n3333333\n"};
open my $FH, '<', $infile or die "Cannot open input";

my @a;
for my $i (1..3) {
    my $ingang = <$FH>;
    chomp $ingang;
    $a[$i] = [undef, split //, $ingang];
}

for my $p (1..3) {
    print @{$a[$p]}[1..7], "\n";
}

##</code><code>##

OUTPUT:
1111111
2222222
3333333