Perl macht sich keine doppelte Arbeit.
Die BEGIN-Blöcke werden einmalig ausgeführt wenn Perl beim Parsen daran vorbei kommt. Die Variablen bleiben erhalten.