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

my $wanted = 3;
my @numbers;

print "Enter $wanted numbers.\n";

for (1 .. $wanted) {
    my $number = <>;

    chomp($number);
    push @numbers, $number;
    square($number);

}

print "The ten numbers were @numbers\n";


sub square {
    my ($number) = @_;
    my $square_num = $number * $number;

    print "$number squared is: $square_num\n";
}