my own perl syntax