in reply to Re: newbie hasher
in thread newbie hasher

my %hostlist = map { /^(\w+)\s(.*)/; $1 => $2 } (<DATA>);

[download]
should be.... 
my %hostlist = map { /^(\w+)\s+(.*)/; $1 => $2 } (<DATA>);

[download]
(extra + after the whitespace metachar)

davis
It's not easy to juggle a pregnant wife and a troubled child, but somehow I managed to fit in eight hours of TV a day.

In Section Seekers of Perl Wisdom