while( <$fd> ) {
	my $href = { map { split '=' }  split ';'   };
	my $id = (split '\.', $href->{TOKEN})[1];
	$tokens{$id} = { %{ $href } }
	}