# das sieht besser aus ...

my ( $millisekunden
    , $sekunden
    , $minuten
    , $stunden
    , $tage
    , $monate
    , $jahre
    , $jahrzehnte
    , $jahrtausende
    ) = split /\s+/, $string;

# als das ... finde ich zumindest

my ( $millisekunden, $sekunden, $minuten, $stunden, $tage, $monate, $jahre, $jahrzehnte, $jahrtausende) = split /\s+/, $string;