wieso es "nicht funktioniert"? dann solltest du erst mal definieren, was "nicht funktioniert" bedeutet. du bist ja jetzt auch schon eine weile im forum. fliegt der rechner bei dem code in die luft?

das BEGIN hat den zweck, die importierten konstanten dem perl-parser zu beginn bekannt zu machen, so dass er sie spaeter auch als solche erkennt und nicht als barewords.
wenn du das ohne BEGIN machst, dann ist ein bareword wie ARCHIVE eben nur ein bareword und wird als string behandelt. eigentlich solltest du auch eine warnung bekommen. vielleicht hast du warnings vergessen anzuschalten?