eval result=([1]=$(perl -e 'print join " ",map rand 10,1..50'))