sub subby_X_text_Y { print "subby_X_text_Y called with @_" };;

$var1='X'; 
$var2 = 'Y'; 

&{"subby_${var1}_text_${var2}"}( 1 .. 5 );;

subby_X_text_Y called with 1 2 3 4 5
[download]