#!/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);