Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
foreach my $sub_ref (@accounts) {
    printf "%-10s | %10d\n", $_->[0], $_->[1] for @$sub_ref;
}
  2. or download this
    current    |       1000
savings    |       2000
other      |        500
  3. or download this
    foreach my $sub_ref (@accounts) {
    printf "%-10s | %10d\n", @$_ for @$sub_ref;
}