No need to hardcode the values. You could set variables (or constants) to hold them, and put those in there. Or if you want to get even more "dynamic", you can use $#array to get the highest index of @array ($#$arrayref, btw =).

I forget which module you can use to determine these values ahead of time.

Now, I'm not *certain* of what you mean by "wrong order", but you can always do

foreach my $x (reverse @array) { #...}
[download]

as well. HTH!

update Oh, I get it now. You want to process row-by-row, you get column-by-column. Sorry bout 'dat.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]