use strict;
use warnings;

my @DIR = qw{functions/myfunc.hml perltest/abs.hml perltest/abs3.hml perltest/abs4.hml perltest/acos2.hml perltest/zeros17.hml};
my @filtered = grep !m{^perltest/}, @DIR;
print "$_\n" for @filtered;