package asdf;
require Exporter;
our @ISA = qw(Exporter);

sub import {

my $class = shift;

my @list = @_ if @_;  # @list contains the splitted string