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