for k in "${!NUMS[@]}"; do export NUMS_$k=${NUMS[k]}; done;
perl -we 'my @NUMS; while (my($k, $v) = each %ENV) { $k =~ /\ANUMS_(.+)\z/ and $NUMS[$1] = $v; } print "<<<$_>>>\n" for @NUMS;'