my ($id, $filename) = split (/\t/, $record);