my first excursion in perl!