{
  package Fields;
  our (@flds, @EXPORT);
  @EXPORT=qw(@flds);
  use Exporter 'import';
}

package main;
use Fields;
my $nfld = scalar @flds;

##</code><code>##

BEGIN {
   package Fields;
   use strict; use warnings;
   use mem;
   our (@flds, @EXPORT);
   @EXPORT=qw(@flds);
   use Exporter 'import';
   $INC{"Fields.pm"} = 1;
}

{                    # <-- Not necessary, but enforces cleaner code.
   use strict; use warnings;
   use Fields;
   my $nfld = scalar @flds;
}