Mine

sub getHosts {
my $name = shift;
my $query = get ("$userlookup$name");
$query =~ s/^[a-z]+\-//;
chomp($query);
chomp($query);
my @hosts = split(/\,/, $query);
return @hosts;
}

---TO--->

sub getHosts {
(get "$userlookup$_[0]") =~ m/\-(.+)/;
return split(/\,/,$1);
}