Select Code to Download

use strict;
use warnings;
...
foreach my $str (qw[testaaa testbbb testccc testddd]) {
    say test_it($str);
}

use strict;
use warnings;
...
foreach my $str (qw[testaaa testbbb testccc testddd]) {
    say $main::{$tester}->($str);
}

#lang scheme
(define (test-it value)
...

(for ([str '("testaaa" "testbbb" "testccc" "testddd")]) 
  (printf "~a~n" (test-it str)))