Added Perl testing of var type [@/$/%]