perl exercise