use strict;
use warnings;

my @words = qw(Richard Rolled All Over Rondas Red Carpet);

my @r_words;

print "Example 1:\n\n";

foreach (@words)
{
 	if(/^R/)
	{
		push @r_words,$_;
	}
}

foreach (@r_words)
{
	print $_,"\n";
}

@r_words = ();


##</code><code>##

print "Example 2:\n\n";


map { push @r_words, $_ if /^R/ }@words;

foreach (@r_words)
{
	print $_,"\n";
}