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); }