You'll need to use curlies to tell Perl that you want a variable as part of the package name.

Try %{ 'A::B' . $type . '::' }

Remember to include the extra '::' on the end.