$I eq 'lonely' while grep (/[^susan]/, my @life);