sub foo {
  my( $s, $a, $s1, $a2 ) = @_;
  ${$s} = 42;
  @{ $a } = 0..5
  ${$s1} = sin( 1 );
  @{ $a2 } = qw( yadda yadda yadda );
  return;
}

foo( \$a, \@b, \$c, \@d );