C:\docs>perl -mList::Util=sum -e"map print( qq[@$_ : = ], sum @$_ ), [
+ map int( 1+rand( 50 ) ), 1 .. 5 ] while <STDIN>"

41 19 15 43 36 : = 154
26 19 12 4 40 : = 101
44 18 1 25 36 : = 124
25 50 48 7 42 : = 172
24 22 3 40 48 : = 137
19 32 7 48 19 : = 125
12 31 9 7 44 : = 103
19 12 41 17 2 : = 91
39 34 5 33 31 : = 142
42 18 15 5 2 : = 82
2 30 32 37 13 : = 114
1 45 2 3 11 : = 62
5 19 48 3 45 : = 120
37 5 37 50 5 : = 134
24 46 16 42 4 : = 132
38 33 15 18 1 : = 105
31 24 6 13 1 : = 75
33 46 9 15 36 : = 139
7 1 5 45 48 : = 106
8 45 38 19 45 : = 155
21 13 18 27 50 : = 129
29 12 29 33 28 : = 131
43 18 28 23 2 : = 114
47 24 45 4 16 : = 136
6 40 4 7 19 : = 76
46 23 31 16 48 : = 164
35 10 36 43 26 : = 150
21 23 16 29 22 : = 111
46 49 5 1 13 : = 114
15 3 11 30 43 : = 102
42 24 31 39 32 : = 168
29 5 8 34 2 : = 78
31 13 28 19 47 : = 138
6 29 1 29 31 : = 96
31 2 26 27 14 : = 100
27 14 26 47 1 : = 115
40 29 14 28 16 : = 127Terminating on signal SIGINT(2)
[download]