[Perl]Return value of DATA_TYPE isn't correct