Select Code to Download

my @accounts = [ 
    [ current => 1000 ],
...
current  |  1000
savings  |  2000
other    |  500

my $width_col = 8;
say join ' | ',
...
            $_ : $_ . " "x($width_col-length($_))  # add spaces
    } @$_
    for @rows;