#!/usr/local/bin/perl -w
use strict;

&sub1;
&sub2;

sub sub1 {
    my @var;
    my $num;
    my $numElements;

    for $num (0..2) {
       $var[$num] = "blah";
    }
    
    $numElements = @var;
    print "Number of elements in \@var of ".(caller(0))[3]." is $numElements\n";
    print &eval_array_size(@var),"\n";
}

sub sub2 {
    my @var;
    my $num;
    my $numElements;

    for $num (0..5) {
       $var[$num] = "blah";
    }

    $numElements = @var;
    print "Number of elements in \@var of ".(caller(0))[3]." is $numElements\n";
    print &eval_array_size(@var),"\n";
}

sub eval_array_size {
    my $numElements = @_;
    return($numElements);
}