use asdf q($this,$is,$a,$single,$scalar);

package asdf; 
sub import { 
    my $class  = shift; 
    my @list = split /,/, shift; 
    # . . .
}