sub DISALLOWED_SCHEMES ()  {
  qw( mailto javascript )
}

##</code><code>##

next if grep { $uri->scheme eq $_ } DISALLOWED_SCHEMES;

##</code><code>##

my @dissallowed = DISALLOWED_SCHEMES;
foreach my $scheme (@dissallowed) {
  next MAINLOOP if ($uri->scheme eq $scheme);
}