>>374
chomp @datalist;
@newlist = grep $erase != $_, @datalist;

改行が含まれていそうね♪