#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

sub explicit {
    return undef
}

sub bare {
    return
}

print "Explicit: ", Dumper [ explicit() ];
print "Bare:     ", Dumper [ bare() ];

##</code><code>##

Explicit: $VAR1 = [
          undef
        ];
Bare:     $VAR1 = [];