%styles = ( %styles, %SVGcal::styles );

##</code><code>##

@styles{ keys %SVGcal::styles } = values %SVGcal::styles;

##</code><code>##

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