perl里 的sub xxxx()子过程可以在sql里用吗？

Question

例如

<%perl>
sub aaaaa(a,b,c){
char(12) d;
xxxxx
return(d);
};
my $sql = <<"SQL";
declare
        @rtn_dt char(12) 
select id,name,score,
case
 @rtn_dt = aaaaa(id,name,score); 

/上面这句话大体意思是想写成这样，求教大神这么写对么，方法aaaaa()被调用的话，具体怎么写，我这样写不对的话，具体应该怎么改，谢谢，如果对的回答我会及时认可回答的。谢谢了，在线等。/

END AS 'Change Date',
SQL
from table
where xxxxx
...
</%perl>