I, like the others who have responded, don't understand your fetish with qw//. As you yourself point out, q// avoids interpolation as well. Why don't you just use q// to pass a single argument to import() and then split on commas?

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

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

-sauoq
"My two cents aren't worth a dime.";