sub traverse {
    my $result;

    for my element (@_) {
        ...
        $result = 'my interesting value to be retained on the last iteration';
    }

    return $result;
}

##</code><code>##

open my $outputFile, '>', $output or die "Failed to create $output: $!\n";