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