use List::Util qw( sum );

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

print "sum = $sum\n";