variable declaration in perl