#!/usr/bin/perl -w
use strict;

sub ret_undef   { return undef }
sub ret_nothing { return; }

print ret_nothing(), "\n";
print ret_undef(), "\n";

my @foo = ret_nothing();
print "Elements in foo: ", scalar @foo, "\n";
print @foo;

my @bar = ret_undef();
print "Elements in bar: ", scalar @bar, "\n";
print @bar;