my $version = get_version( $path );

sub get_version { # complicated logic here
    my($p) = @_;
    my $v ;
    $v = get_version_home_csv($p);
    return $v if $v;

    $v = get_version_custom1($p);
    return $v if $v;

...
}