corrected perl syntax