my ( %list_total_perl, %perl );

@perl{ 'a' .. 'e' } = list_from_wherever();

$list_total_perl{ $_ } += $list{ $_ } for 'a' .. 'e';