[MacPerl] Beginner problem

[Christopher Palmer]

In the following code:

foreach $file_name ( @file_list ) {
print "$i - " . "$file_name";
$i ++;
}

why is the output

1 - filenameA
filenameB
filenameC

instead of

1 - filenameA
2 - filenameB
3 - filenameC

Thanks,
CTP