perlstudy on enter event add