use Modern::Perl;
use File::Slurp qw/ read_file write_file /;

my $removeList = join '|',
	map { chomp; $_ } read_file 'removelist.txt';
	
write_file 'finallist.txt',
	grep !/$removeList/i, read_file 'masterlist.txt';