while ( my ($k,$v) = each %SVGcal::styles ) {
   $styles{$k} = $v;
}