my $value = $array[$_] for @list;