my @ARRAY = qw( 1 2 3 );
my %HASH = ( 1 = 'TEST', 2 => 'OK');

methode (\@ARRAY, \@HASH);

sub methode {
  my $arr_ref = shift;
  my $hsh_ref= shift;
  
  print '$arr_ref->[1] ist ', $arr_ref->[1];
  print '$hsh_ref->{2} ist ', $hsh_ref->{2};
}