Don't have a Perl install on here to check it, but this is close...
#!/usr/bin/perl
use strict;
use warnings;
my @words = qw( first second third% fourth% fifth);
my @results = grep (/%$/, @words);
print "Found:".join(",", @results)."\n" if (@results);