use English;
use List::Util qw( first );
sub is_perlvar { 
    my ($var) = @_; 
    !!(first { substr($var,1) eq substr($_,1) } @English::EXPORT;)
}