#!/usr/bin/perl -w
use strict;
my @updateloc1 = ("LakeOsouth/stuf", "LakeOeast/stuf", "LakeO2/stuf", "LakeO/stuf");
my @texlines = ("LakeOsouth", "LakeOeast", "LakeO2", "LakeO");
for my $lin (@texlines){
	for my $update (@updateloc1){
		if ($update =~ /$lin/){
			print "The table column $lin matches the directory name $update, so now do stuf in the subdir\n";
}	}	}