sub f {
    my $var = shift;
    for ( $var ) {
        last if length;
        $_ = $DEFAULT;
    }
    ...
}