use strict; sub flab { my @r = ( 1 .. 10 ); wantarray ? @r : \@r; } print "flab has ", scalar @{flab()}, " entries\n";