for my $arr2(@arr2) {

##</code><code>##

for ( my $j = 0; $j <= $#arr2; $j += 4 ) {

##</code><code>##

        $seen = substr($arr2[$j], 0);

##</code><code>##

        $seen = $arr2[$j];