if (scalar @$value) { # check that the arrayref isn't empty my @arr = grep(!/^\/\*/, @$value); print "\n ", join(", ", @arr), "\n\n"; }