Updating ttk progress bar perl