my @a_str = split //, $line;

##</code><code>##

elsif ($count == 1)
{
    if (...)
    {
        $count = 0;
        ...

##</code><code>##

open(my $INFILE, "<", $file)
    or die "can't open file '$file' for reading: $!";