say "Account $_ - occurring $accounts{$_}->[1] time(s) - Total = $accounts{$_}->[0]" for keys %accounts; say "Grand Total = $g_total";