Variablen Referenz in Subs

[Beat]

sub some_sub {  # array_ref, hashref, stringref, string  
  my $array = @{ shift(@_) };  
  my %hash = %{ shift(@_) };  
  my $scalar1 = ${ shift(@_) };  
  my $scalar2 = shift;  
}  

mfg Beat