#!/usr/bin/perl
END {
    @array = ();
    print "Length of an array inside END block: ", $#array + 1, "\n";
}

print "Length of an array: ", $#array + 1, "\n";

BEGIN {
    @array = (1, 2, 3);
}

execute the script and observe the output