use Data::Dumper;
use Term::HiliteDiff 'watch';

for ( ... ) {
    my $before = "text array before is " . Dumper(\@text, $value);
    ...
    watch( $before . "text array after is " . Dumper(\@text, $value) );
}