sub process_something {
   my $s1;
   my $s2;
   my $l1;
   my $l2;

  ($s1, $s2, @l1, @l2) = @_;

  .
  .
  .
}

process_something($scalar1, $scalar2, @list1, @list2);