Perl related Query