perl done/variation starting