[Perl]Data only be inserted into fixed database