use Foo qw/1 2 3/;

package Foo;

sub import {
    my ( $class, @args ) = @_;
    # @args = (1, 2, 3);
}