$foo = 'Skalar foo';

@foo = ('Array foo 0','Array foo 1','Array foo 2');

sub foo 
  { print "Buh! foo!\n"; }
         
sub show 
  {
  local(*irgendwas) = @_;     # Parameter-Alias
  print "Array:    ", $irgendwas[1], "\n";
  print "Skalar:   ", $irgendwas ,"\n";
  print "Funktion: "; &irgendwas;
  }
  
print "Glob:     ",*foo,"\n";
show(*foo);