some significant perl