#split each @flab line into two fields ‘Name’ and ’Title'
my @match = split (/\t/,$line);