#! /usr/bin/perl
use strict;
use warnings;

my @nums = (1..10);
sub square
{
foreach my$number (@nums)
 {
   my$number = ($number * $number);
   print "$number\n";
 }
}