foreach my $key (keys %SVGcal::styles) {
    $styles{$key} = $SVGcal::styles{$key}
    }