learning perl and apply