use List::MoreUtils qw/pairwise each_array/;

my @totalexpenses = qw/ ONE TWO THREE/;
my @totalcosts    = 1 .. 3;

print "pairwise\n\n";

$a = $b = 0; # avoid "used only once" warnings
print pairwise { sprintf "%10s %10s\n", $a, $b } @totalexpenses, @totalcosts;
#or pairwise { printf "%10s %10s\n", $a, $b } @totalexpenses, @totalcosts;

print "\neach_array\n\n";

my $iter = each_array @totalexpenses, @totalcosts;
while ( my ( $costs, $exp ) = $iter->() ) {
    printf "%10s %10s\n", $costs, $exp;
}

##</code><code>##

pairwise

       ONE          1
       TWO          2
     THREE          3

each_array

       ONE          1
       TWO          2
     THREE          3