# 
# note: may need to install "mem" ("cpan -i mem")
# 

use strict; use warnings;

################################################################################
{ package Fields;
  use strict; use warnings;
  use mem;
  our (@flds, @EXPORT);
  @EXPORT=qw(@flds);
  use Exporter 'import';
}
################################################################################
package main; use strict; use warnings;
use Fields;

my $nfld = scalar @flds;