Please reread my reply. I already posted how you can remove the foreach which is unnecessary. As an alternative, you could use a different variable than $_ in your inner while-loop:

        while (defined (my $line = <PSTEST>)){
                print "Line # ".$i."\n".$line;
                print "Platform now is '$PLATFORM'\n";
                $i++;
        };
[download]