update lib/perl/common.green
add FloatType