Help for this page
my ( @list_total_perl, @perl ); @perl = list_from_wherever(); $list_total_perl[ $_ ] += $perl[ $_ ] for 0 .. $#perl;
my ( %list_total_perl, %perl ); @perl{ 'a' .. 'e' } = list_from_wherever(); $list_total_perl{ $_ } += $list{ $_ } for 'a' .. 'e';