#!/usr/bin/perl use strict; use warnings; my @files = qw( file1 file2 file3 ); map {$_ = "'" . $_ . "'";} @files; print @files, "\n";