ONE
TWO
THREE
1
2
3

but what i want to look like is :
ONE 1
TWO 2
THREE 3
[download]

open  WRITEFILE , ">>$time.txt" or die "write error\n";
my $format = " %10s\n" x @totalexpenses . "%10s\n" x @totalcosts;
printf WRITEFILE  $format, @totalexpenses , @totalcosts;
close WRITEFILE; 
}
[download]

List::MoreUtils has a couple of functions that do what you want - pairwise and each_array

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, @tota
+lcosts;
#or pairwise { printf "%10s %10s\n", $a, $b } @totalexpenses, @totalco
+sts;

print "\neach_array\n\n";

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

Output:

pairwise

       ONE          1
       TWO          2
     THREE          3

each_array

       ONE          1
       TWO          2
     THREE          3
[download]

update: added pairwise in void context alternative

Many thanks FunkyMonk I had not a clue how to do it

The solution with List::MoreUtils is definitely good. But sometimes (like when writing code that needs to run on lots of different machines), reliance on a non-core module can be less economical than we would like, especially when the task being solved by the module isn't that complicated to begin with.

Here's the solution without the extra module:

open WRITEFILE, ">>", "$time.txt" or die "$time.txt: $!";
my $format = " %10s %10s\n";

printf WRITEFILE $format, $totalexpenses[$_], $totalcosts[$_] for (0..
+$#totalcosts);

close WRITEFILE;
[download]