use strict; use warnings; foreach my $myfile (@myFiles) { open my $FILE, '<', $myfile or die $!; while (my $line = <$FILE>) { my ($project, $value1, $value2) = ,$line; print "Project : $1 \n"; print "Value1 : $2 \n"; print "Value2 : $3 \n"; } close (FILE); } #### Checking Project foobar Good Files excluding rules: 15 - 5% Bad Files excluding rules: 270 - 95% Good Files including rules: 15 - 5% Bad Files including rules: 272 - 95% #### Project :foobar Value1 : Good Files excluding rules: 15 - 5% Bad Files excluding rules: 270 - 95% Value2 : Good Files including rules: 15 - 5% Bad Files including rules: 272 - 95%