print "How many files do you want to combine?: ";
my $numfiles = <>;

print "Please input the file names:\n";
my @filenames;

for (my $currentfile = 0; 0 < $numfiles-1; $currentfile++)
{
	my $line = <STDIN>;
	$line =~ s/(^\s+)|(\s+$)//g;
	@filenames = split(/\s+/,$line);
}