my ($var1, undef, $var2) = methode();

sub methode{
  my $ret1 = "hallo";
  my $ret2 = "welt";
  my $ret3 = "!";
  return ($ret1,$ret2,$ret3);