my ($scalar, $list_ref) = @_;