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