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

sub grepfile {
    local @ARGV = ( $_[1] );
    return grep /$_[0]/, <>;
}

my @text = grepfile 'important', './grepfile';
print @text, "\n";
print @ARGV, "\n";