perl inline sub