my @letters = split (/,/, $contact);

my $i = 3;

foreach $i (0..$#letters-1)
{
print "Flag $i is $letters[$i]";
}