foreach my $sub_ref (@accounts) {
    printf "%-10s | %10d\n", @$_ for @$sub_ref;
}