#!/usr/bin/perl

use strict;
use warnings;

my ($pattern, @files) = @ARGV;
print "pattern=$pattern  files are:@files\n";

__END__
example:
>mygrep.pl "some pattern" filea fileb filec
pattern=some pattern  files are:filea fileb filec