sub code {  # scalar, array ref, hash ref
   my $data = shift;
   my @array = @{ shift() };
   my %hash = %{ shift() };
}