c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = (30, 40, 50);
 my @rb = ( 3,  4,  5);
 ;;
 $ra[$_] += $rb[$_] for 0 .. $#ra;
 print qq{@ra};
"
33 44 55