I like Haskell, Perl, and Raku!

       IDENTIFICATION DIVISION.
       PROGRAM-ID. hello.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ws-subject        PIC X(20).

       PROCEDURE DIVISION.
       para-main.
           MOVE 'Haskell' TO ws-subject
           PERFORM para-like
           MOVE 'Perl' TO ws-subject
           PERFORM para-like
           MOVE 'Raku' TO ws-subject
           PERFORM para-like
           STOP RUN
           .

       para-like.
           DISPLAY 'I like ' FUNCTION TRIM(ws-subject) '!'
           .