learning perl homework finished