#!/usr/bin/perl -w                     
        $count=1; 
        my @ten_array=0;                
        while($count<=10)  {            
        print "Enter ten numbers.\n"; 
        $number=<>; 
        chomp ($number); 
        my @ten_array=($number);        
        ++$count;                      
        square($number);                 
        sub square {                     
         $square_num =$number*$number; 
        print"$number squared is: $square_num\n";
       } 
        } 
        print"The ten numbers were @ten_array\n";