And just to get you started look at the following commands/syntax..

my @array = ();
for $file ( qw(file1 file2 file3) ){
 open(IN,'<',$file)
 while(IN){
  chomp; 
  split;
 }
 close (IN)
}
[download]

Use these to make some script, and when you have something we'll comment on it to help you make it better/function ;-)