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