{ foreach $line (@lines)
  {
    $OUT .= "$line->{'d'} map $line->{'proto'}://$line->{'uri1'} $line->{'proto'}://$line->{'uri2'}\n";
  }
}