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