sub import {
    my $class = shift;
    my @list = split /,/, join ' ', @_ if @_;
    # ...
}