my @a= ( 'a' .. 'e' );
sub returnArray {
    return @a;
}

my @b= ( 'v' .. 'z' );

for( returnArray() ) { $_ .= '?' }
for( @b ) { $_ .= '!' }

print "@a\n";
print "@b\n";
__END__
a b c d e
v! w! x! y! z!