What have you tried and where did you get stuck? Show us a little sample code and explain what's not working. Note that you can simulate files using strings for test purposes. Consider:

use strict;
use warnings;

my $file1 = <<'STR';
"111yu",erter,"00000", ,"567"
"gh6fr",erter,"00000", ,"567"
"1t76y",erter,"00000", ,"yu7"
"yu84e",erter,"00000", ,"5h7"
STR
my $file2 = <<'STR';
111yu
345cv
yu84e
STR

for my $file (\$file1, \$file2) {
    open my $inFile, '<', $file;
    print while <$inFile>;
    close $inFile;
}
[download]

Prints:

"111yu",erter,"00000", ,"567"
"gh6fr",erter,"00000", ,"567"
"1t76y",erter,"00000", ,"yu7"
"yu84e",erter,"00000", ,"5h7"
111yu
345cv
yu84e
[download]