c:\test>perl -wle"@a = 'a'..'f'; for( @a) { ++$_ }; print qq[@a]"
b c d e f g