I don't quite know if this would apply in your case, but it is good for quick debugging.

#!/usr/bin/perl -w
use strict;
use Smart::Comments;

for my $val (@loop_values) {
    ### $val
    do_stuff_to_val($val);
    ### $val
}
[download]

This will print out the values of $val before and after you modify it. And then once you don't need them anymore, comment out the use Smart::Comments line and you're set. Check out the POD on Smart::Comments for more info. Quite handy. -- texasperl