use vars qw($A $B);

↑このvarsてのは何なのですか？
後qwとかqqとかもありますが、それについての詳細もお伺いしたいのですが