$ perl arrayref.pl id 1 credit 1000 debet 100 id 2 credit 1500 debet 200