use strict;
use warnings;
use Data::Dumper;

my $x = foo();
print "$x\n"; # 4711

my @y = foo() or die "Kein Array bekommen!";
print Dumper @y; # $VAR1 = undef;

sub foo{
  return wantarray ? undef : 4711;
}