Select Code to Download

    print "\@var has ", eval_array_size(\@var), " elements.\n";

...
        my $aref = shift;
        return scalar @{$aref};
    }

    sub eval_array_size (\@) {
        my $aref = shift;
...
    }
    
    print "\@var has ", eval_array_size(@var), " elements.\n";