sub links { my ($url, @list) = @_; my @return; foreach (@list) { push @return, "$url/$_\n"; } return @return; } #### sub links { my ($url, @list) = @_; my @return = map ("$url/$_\n") @list; return @return; }