%URLS = ();
..
#code
# add elements to hash
..
..

sub printurls()
{
my (%URLS,$title) = @_;
...
#code
# print hash elements....
...
}

##</code><code>##

sub printurls()
{
my ($title,%URLS) = @_;
...
#code
# print hash elements....
...
}