Select Code to Download

sub example {
    my ( $scalar1, $scalar2, @info1 ) = @_;
    ...
}

&example( $scalar1, $scalar2, \@info1 ) = @_;
...
...
    my @info1 = @$arrref;
    ...
}