my @flds = split / /;
$flds[14] = $TOC{$flds[14]};
print "@flds" ;#this is quoted so it's printed with a space between each field