my ( @list_total_perl, @perl );

@perl = list_from_wherever();

$list_total_perl[ $_ ] += $perl[ $_ ] for 0 .. $#perl;