#!/usr/bin/perl
open(INFILE, "fields");
print("BEGIN - list \n");
while (<INFILE>) {
        tr /a-z/A-Z/;
        print;
}
print ("END - list: \n");