Select Code to Download

#!c:\perl\bin\perl.exe -w

...
{
    print "$b[$x] = $a[$b[$x]]{total}\n";
}

5 = 20
4 = 30
...
1 = 10
Use of uninitialized value in concatenation (.) or ...
0 =

2 = 50
3 = 40
4 = 30
5 = 20
1 = 10