my @retval;
print "the last index of \@retval is $#retval\n";
print "the number of *elements* in \@retval is ", scalar @retval, "\n";
push @retval, 'one value';
print "the last index of \@retval is $#retval\n";
print "the number of *elements* in \@retval is ", scalar @retval, "\n";
push @retval, 'another value';
print "the last index of \@retval is $#retval\n";
print "the number of *elements* in \@retval is ", scalar @retval, "\n";