use if $] < 5.012, 'Enumerators';

##</code><code>##

# use Enumerators -global;
# use Enumerators qw( each );
# use Enumerators;

package Enumerators;

use Exporter qw( );

our @EXPORT    = qw( each );
our @EXPORT_OK = qw( each );

sub import {
   my $class = shift;
   return if $[ >= 5.012;
   if ($_[0] eq '-global') {
      *CORE::GLOBAL::each = \&each;
   } else {
      goto &Exporter::import;
   }
}

sub each(\[@%]) {
   ...
}

1;

##</code><code>##

package stricter;

sub import {
   require strict;
   strict->import;
   require warnings;
   warnings->import;
}

1;