#!/usr/bin/perl

use strict;
use warnings;

sub open_file {
	my $file = scalar(@_);
	foreach my $temp (@_) {
		open FILE, $temp;
		while (my $line = <FILE>) {
			print $line;
		}
	}
}

sub grep_file {
	my $file = shift;
	open FILE, $file;
	while (my $line = <FILE>) {
		open_file ($line);
	}
}

grep_file @ARGV