perl question