d in perl