#!/usr/bin/perl -w
use Tie::File;
use strict;

my @ry=();
tie @ry,"Tie::File","mybigfile" or die "mybigfile:$!";
@ry = grep /mypattern/,@ry;
untie @ry;