my %vars;
@vars{'d','map','proto','uri1','uri2'} = ($1,$3,$5,$6,$8);

##</code><code>##

if ($lines=~/(\d+)(\s+)(map|reverse_map)(\s+)(\w+)\:\/\/(.*?)(\s+)(\5)\:\/\/(.*?)$/)  
 {      
       $vars{'d'}     = $1; 
       $vars{'map'}   = $3;
       $vars{'proto'} = $5;
       $vars{'uri1'}  = $6;
       $vars{'uri2'}  = $8;      
     }
   }
my $result = $template->fill_in(HASH => \%vars);           

##</code><code>##

my @fields = qw(d map proto uri1 uri2);
if (@vars{@fields} = $line=~m#(\d+)\s+(map|reverse_map)\s+(\w+)://(.*?)\s+(\5)://(.*?)$#) {      
      my $result = $template->fill_in(HASH => \%vars);
}