Ejemplo 3: Una fila, PL/perl      

CREATE OR REPLACE FUNCTION
  num2pal(INTEGER)
  RETURNS TEXT AS '
    $num = shift;
    return undef if ($num < 1 || $num > 9);
    $num--;
    return (qw(uno dos tres cuatro cinco seis siete
               ocho nueve))[$num];
' LANGUAGE plperl;

regression=> select num2pal(5);
 num2pal
---------
 cinco
(1 fila)