sub traverse {
    my $result;

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

    return $result;
}