Select Code to Download

  (map {$self->{$_}} qw|uno dos tres|) = qw|some three values|;
# Gives syntax error:
#   Can't modify map iterator in list assignment

for zip(qw|uno dos tres|; qw|some three values|) -> $k, $v {
    $self->{$k} = $v;
}