while (@partners){

my $item = shift (@partners);

while (<FH>) {
	my ($usernamedb,$surname,$firstname,$secondname)=split (/\t/,$_);

	if ($item eq $usernamedb) {
		print qq{$firstname $secondname $surname  };
	}
}		

}