my %vars = (
    list   =>  $ENV {LIST_VAR}               // 
               $ENV {LIST_VAR_DEPRECIATED}   //
               "other_list",
    source =>  $ENV {SOURCE_VAR}             //
               $ENV {SOURCE_VAR_DEPRECIATED} //
               "other_source",
);

sub var_from_env_var {
    my $input = shift;
    $vars {$input} // $input;
}