Maybe something like this (if I'm understanding you correctly):

package Bar;

use Exporter 'import';

our @EXPORT_OK = qw(x);

sub x {
    print "x(): @_\n";
}
1;
[download]

package Foo;

sub import {
    print "Foo::import(): @_\n";  # debug
    require Bar;
    
    # do whatever you want with the import() args, e.g.
    shift @_;
    Bar->import(@_);
}
1;
[download]

#!/usr/bin/perl

use Foo 'x';   # x() will be imported from Bar into Foo namespace
               # (as would be done when using a hardcoded "use Bar 'x'
+" within Foo)

Foo::x('bla');

__END__
$ ./824136.pl
Foo::import(): Foo x
x(): bla
[download]

Do a require and import for package Bar:

package Foo;
require Bar;

sub import {
    my $class = shift; # first param is class name

    if (@_) {
        Bar->import(shift); # that's passed along
                            # with 'use Foo qw(x);'
    }
}
# more stuff...

1;
[download]

package Bar;

sub import {
    my $class = shift;
    if (@_) {
        my $x = shift; # passed from Foo
        warn "$class: got '$x' from ".caller()."\n";
        # now do whatever you like with 'x'
    }
}
# more stuff...

1;
[download]

and then...

#!/usr/bin/perl

use Foo qw(blorf);
[download]

...or even

$ perl -MFoo=blorflydick -e 1
Bar: got 'blorflydick' from Foo
[download]