open(RESULT, "> result.txt") or die ("Unable to open file");

foreach $pattern(@fileone) {
		foreach $line(@filetwo) {
			if ($line =~ /^$pattern/) {print RESULT $line."\n";}
			}
}