#!/usr/bin/perl -w
# $Id: sieve.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $

use strict;

# Create an array of numbers 
my @primesLessThan20 = (2, 3, 5, 7, 11, 13, 17, 19);
foreach $_ (@primesLessThan20) { print $_, "\n" };
