Shell Programming and Scripting

perl -e '@x=(3,6,2,8,1);@y=(8,2,11,7,9);for($i=0;$i<=$#x;$i++){$sum+=($x[$i]+$y[$i])};print $sum'

redc=(3 6 2 8 1)
work=(8 2 11 7 9)

function sum {
        local sm=0
        local tmp
        tmp=(`echo "$@"`)

        for i in ${tmp[*]}
        do
                sm=$[ $sm + $i ];
        done
echo $sm
}

echo "The Sum of redc is :: " ; sum ${redc[*]}
echo "The Sum of work is :: " ; sum ${work[*]}

redc=(3 6 2 8 1)
work=(8 2 11 7 9)

sum()
{
        sm=0
        while [ $# -gt 0 ]
        do
                val=$1
                shift
                ((sm+=val))
        done
        echo $sm
}

echo "The Sum of redc is :: $(sum ${redc[*]} ) "
echo "The Sum of work is :: $(sum ${work[*]} ) "