Select Code to Download

    #!/usr/bin/perl -w -00

    use strict;
...

    print scalar @array; # prints 6 for the above file

    #!/usr/bin/perl -w

    use strict;
...
    }

    print scalar @array;