add my-keyword to Perl foreach snippet