theres bound to be loads of different ways to do this, map and foreach spring to mind:

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 = ();
[download]

Update: Ok this is the scoundrels way of doing it :)

In honesty I wouldn't have done it this way anyway but a fair point from rob_au. So this is how not to do it :)

print "Example 2:\n\n";


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

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

HTH