Select Code to Download

  ($self->{ uno  },$self->{ dos }, $self->{ tres }) = qw|some three va
+lues|;

 # does not work
 @{$self->{qw|uno dos tres|}} = qw|some three values|;