Try something like :

#!/usr/bin/perl
use warnings;
use strict;

open FH, "testit" or die $!;

my @lines = <FH>;

for (@lines) {
   print $_ if (!/fubar/) ;
}
[download]

Though I don't see why your grep example didn't work. (my @nonfubar = grep !/fubar/, @lines;)