use warnings;
use strict;

my @array = (1,2,3,4,5);
@array = map { qq("${_}a") } @array;
print "@array\n";

__END__

"1a" "2a" "3a" "4a" "5a"