a perl question