#!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);