foreach perl loop