駆け出しですが，こんなのできました．
#! /usr/pink/perl -w
use strict;
my @array = (3, 5, 9, 10);
{
　foreach (1..20) {
　　if ($array[0] == $_) {
　　　print "Match: $_\n";
　　　}
　}
shift @array;
redo if @array;
}