$_ eq 'something' && push @y,$_ while <R>;

##</code><code>##

my @y=grep {$_ eq 'something'}<R>