use File::Slurp 'read_file'; my @raw_files; foreach my $filename ( @filenames ) { push @raw_files, scalar read_file( $filename, chomp => 1 ); }