#INFILE
A
B
C
D
####
#!usr/bin/perl5.8.8
use strict;
use warnings;
my @array = qw (A B C D);
open (my $INFILE,"<", "letters");
open (my $OUTFILE,">", "capturedletters");
my $Letter;
foreach my $i (@array)
{
print "Foreach loop$i, ";
print "\n";
while (<$INFILE>)
{
print "While loop$i, "; #this variable does not change
if ($_ =~/^$i/)
{
print $OUTFILE "$_";
}
}
}
close ($INFILE);
close ($OUTFILE);
##
##
Foreach loopA,
While loopA, While loopA, While loopA, While loopA, Foreach loopB,
Foreach loopC,
Foreach loopD,