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

##</code><code>##

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