#perl kod optimizasyonu