#!/usr/local/bin/perl -l -w

use strict;
use Data::Dumper;

sub x {
 ();
}

my @x = x();

my $num = @x;
print $num;
for (@x) {
 print;
}

print Dumper (\@x, $num);

#output:
0
$VAR1 = [];
$VAR2 = 0;