use a qw( $var2 &sub );

BEGIN {
    import b qw( $foo %bar );
}