in reply to perl format problem
Only talking about syntax: "format Amount:" should be "format Amount = ". I am not going to second guess your purpose.