get hash from array

[Marcos . Rebelo]

sub xpto {
   my %a = map {$_ => undef} (@_);
   return \%a;
}

or 

sub xpto {
   return {map {$_ => undef} (@_)};
}


I'm using this code but shall exist someting clearner without map. Can you
help me?

Thanks


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>