array pop function for postgresql 8.4+

array_pop.sql

CREATE OR REPLACE FUNCTION array_pop(a anyarray, element character varying)
 RETURNS anyarray
 LANGUAGE plpgsql
AS $function$
DECLARE 
    result a%TYPE;
BEGIN
SELECT ARRAY(
    SELECT b.e FROM (SELECT unnest(a)) AS b(e) WHERE b.e <> element) INTO result;
RETURN result;
END;
$function$

Thank you, very useful.