VAR: for my $var (@vars) {
	for my $othervar (@othervars) {
		if(somethingwith($var, $othervar)) {
			print join("\t", ($var, $othervar)) . "\n";
			last VAR;
		}
	}
}