printurls(\%URLS, $title);

...

my ($URLS, $title) = @_;

...

while(my($key, $value) = each %$URLS) {
  print "$key => $value\n";
}