sub returnthree
{
   return ("eins", "zwei", "drei");
}

my ($var1, $var2, $var2, @vars);

$var1 = returnthree();
print "$var1\n";

($var1) = returnthree();
print "$var\n";

($var1, $var2) = returnthree();
print "$var1; $var2\n";

($var1, $var2, $var3) = returnthree();
print "$var1; $var2; $var3\n";

@vars = returnthree();

($var1, undef, $var3) = returnthree();
print "$var1; $var3\n";