Obviously printf/sprintf is the way to go, but there are other options:

#!/usr/bin/perl

use strict;

my @accounts = ( 
    [ current => 1000 ],
    [ savings => 2000 ],
    [ other   => 500  ],
);

write for @accounts;

format STDOUT =
@<<<<<<< | @<<<<<<<
$_->[0], $_->[1] # EDIT: or just @$_
.
[download]