use a qw( $x $z );

##</code><code>##

"$z" is not exported by the a module
Can't continue after import errors at -e line 1

##</code><code>##

package a;
require Exporter;
*import= \&Exporter::import;
our @EXPORT_OK= qw( $x );
our $x= 'x';
1;