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>