sub foo {
    return "alpha", "beta";
}
my @array = ("alpha", "beta"); # Array wird mit Liste initialisiert

my $scalar = foo(); # Liste im skalaren Kontext: Ergibt das letzte Element
print $scalar; # "beta"
$scalar = @array; # Array im skalaren Kontext: Ergibt die Anzahl
print $scalar; # 2