script perl without switch condition