in reply to Question on Grep Function

@result=grep (/\ba\z/,@array);

[download]
--Artist

In Section Seekers of Perl Wisdom