Remember that associating a distinct identity with a data structure adds clarity and helps reduce bugs.

Using an object:

use Currency;

my $amt = new Currency;
[download]

And not:

my $amt = [0,0];
[download]

And two screens down in the code:

my $oldAmt = $amt;
[download]

But which file are you in?