Learning how to use 'constants' in perl