Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        return scalar @$self;
    }
}

my ( $a1z, $a2z, $a3z ) = qw( 42 13 666 );
my @az;
...
for ( 1 .. 3 ) {
    print "\$a${_}z = $az[$_]\n";
}

print "\$a0z = $az[0]\n"; 
# Array index 0 out-of-bounds at bar.pl line 63

use List::Util qw( sum );

my $sum = sum( @az[ 1 .. 3 ] );

print "sum = $sum\n";

my $sum = sum( @az );