just learing about perl