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

use strict;

# Create an array of numbers 
my @numbers = (0, 1, 2, 3, 4, 5);
print "Sines:\n";
my @sines = map {sin} @numbers;
foreach $_ (@sines) {print $_, "\n";}
my @squares = map { my($n)=$_; $n*$n } @numbers;
print "Squares:\n";
foreach $_ (@squares) {print $_, "\n";}
