[Solved] parse file in perl using awk commands

Question

awk '{
    a[$1]+=$2+$3
}
END {
    for (i in a)
        print i, a[i]
}' input.txt > op.txt

Accepted Answer

awk '{
    a[$1]+=$2+$3
}
END {
    for (i in a)
        print i, a[i]
}' input.txt > op.txt