while (<FH>)
{
	next if (/^#/);
	chomp;
	if (not exists $usernames{$_})
	{
		$usernames{$_} = 1;
	}
	else
	{
		die "found username duplicate in first file, script halted!\n";
	}
}