psuedocode:

open main file for parsing; #not file1 or file2
parse out each file within this file;
when reach $file1 send to subroutine;
when reach $file2 send to subroutine;
exit script;

##</code><code>##

my $file1 = 'extracted/file1';
sub infile($file1);
my $file2 = 'extracted/file2';
sub infile = 'extracted/file2';