#!/usr/bin/perl

use strict;
use warnings;

# im list-Kontext
my @array = test();
print "@array\n";

# im skalaren kontext
my $test = test();
print $test,"\n";

# im void-Kontext
test();


##
# die sub
##
sub test{
    if(wantarray){
        print "im list-Kontext\n";
    return qw(1 2 3 4);
    }
    elsif(defined wantarray){
        print "im Skalar-Kontext\n";
    return "Hallo Welt";
    }
    elsif(! defined wantarray){
        print "im void-Kontext\n";
    }
    else{
        print "dieser Fall sollte eigentlich nie eintreten\n";
    }
}