Select Code to Download

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';