my($result) = GetOptions ("date=s" => \$inDate);
my($infile) = "USSTSF$inDate.txt";
tie my @csvdata, 'Tie::CSV_File', $infile;
print "Line 5, column 1: ", $csvdata[4][0] . "\n";