Select Code to Download

my $nelts   = @array;    # Number of elements. 
my ($first) = @array;    # First element. 
...
my $nelts   = some_func();    # Number of elements.
my ($first) = some_func();    # First element.
my @whole   = some_func();    # Whole thing.