Select Code to Download

sub second {
    my $num_ref = shift;
...

    return $sum;
}

my $result = second( @num );

sub second {
    my ( @array ) = @_;
# etc

my $result = second( \@num );

...
    my ( $aref ) = @_;
    my @new_array = @$aref;
    # my $new_ref = [ @$aref ]; # alternative