my $file1 = "tom";
my $file2 = "bob";
my $file3 = "joe";

my @names = ("file1", "file2", "file3");