Perl awk is zero based.