&example($scalar1, $scalar2, @info1);

sub example {
    $scalar1 = shift;$scalar2 = shift;@info1 = @_;
    .....
}