use List::Util qw(uniqstr);
say join "\n", 
   uniqstr
   map  { $_->[0] }
   map  { [ split m{;} ] }
   <$inFH>;