perl checks for #2