#!/usr/bin/perl -w

sub bla1 {
 my ($a) = @_;
 print "$a\n";
}

sub bla2 {
 my @a = @_;
 print "@a\n";
}

sub bla3 {
 my $a = @_;
 print "$a\n";
}
bla1(4,5,6); # 4 : erstes Element = @_[0]
bla2(4,5,6); # 4 5 6
bla3(4,5,6); # 3 : Anz. der Elemente