$scalar = (5,10,15,20);
print $scalar, "\n";

##</code><code>##

sub get_list
{
    # return a list if a list is wanted, else 
    # return the string
    return wantarray ? (5,10,15,20) : "SCALAR CALL";
}

##</code><code>##

$scalar = get_list();
print $scalar, "\n";

@array = get_list();
print join(" ", @array), "\n";

##</code><code>##

print scalar(get_list()), "\n";
print join(" ", get_list()), "\n";