# Copy the hash for readability
# (S|C)ould be updated to reference instead of copy
my %attribs = %{$token->[2]};

$tag = '<a';
foreach $name keys (%attribs) {
 $tag .= " $attrib=$attribs{$name}";
}
$tag .= '>';