for ($i=3; $i<=5; $i++) {
	$nv = join '',$big[$i],'v';
	$nl = join '','l',$big[$i],'1';
	$nm = join '','m',$big[$i],'1';
	$nu = join '','u',$big[$i],'1';
	if ($operation{$nv} eq 'plus') {
		$x = $digit{$nl};
		if (@$x !~ /$digit{$nu}/ && $x ne $digit{$nu}) {push (@$x, $digit{$nu});}
		if (@$x !~ /$digit{$nm}/ && $x ne $digit{$nm}) {push (@$x, $digit{$nm});}
	}
	else {
		$x = $digit{$nu};
		if (@$x !~ /$digit{$nl}/ && $x ne $digit{$nl}) {push (@$x, $digit{$nl});}
		if (@$x !~ /$digit{$nm}/ && $x ne $digit{$nm}) {push (@$x, $digit{$nm});}
	}
}