#!/usr/bin/perl

use strict;
use warnings;

sub grep_file {
	
	my @files = @_;
	my $pattern = "asdf";
	foreach my $file (@files) {
		open FILE, $file;
		while (my $line = <FILE>) {
			if ($line =~ /$pattern/) {
				print $line;
			}
		}
	}

}

grep_file @ARGV