Peut-on passer une subroutine à une subroutine.

j'ai une subroutine fct1 définie par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
sub fct1 {
    my ( $x ) = @_ ;
    return 2 * $x + 1 ;
}
et une autre fct2 définie par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
sub fct2 {
    my ( $x ) = @_ ;
    return 3 * $y + 5 ;
}

je souhaite obtenir et
en appelant une foction moyenne
et
Est-ce possible et comment ?

Merci de votre aide.