A variant on kennethk's post:

>perl -wMstrict -le
"my @disk_list = qw(foo bar baz);
 ;;
 my $new = 'a';
 my @new_list = map $new++, 0 .. $#disk_list;
 printf qq{'$_' } for @new_list;
"
'a' 'b' 'c'
[download]