&func( $scalar, @array );

sub func {
my $var = shift;
my @list = @_;
# do stuff
}