Print a number and save in an array using perl

#!/usr/bin/perl/
print "Please write enter a number E=\n";
$E = <STDIN>;
print"E=$E\n";

$x=0;

while($x<($E+1)){
print "x = $x\n";
@array[$x]=$x;
print "array =@array[$x]\n";
$x +=1;
}

print "@array\n";

Print sorted numbers using perl

#!/usr/bin/perl/

my @numbers = ();

open (DATA, "SA1.txt") || die("Could not open file!");

while ($record = <DATA>) {

   push (@numbers, $record);

}

close(DATA);

my @sorted_numbers = sort {$b <=> $a} @numbers;

    print "@sorted_numbers\n";

print "1. @sorted_numbers[0]\n";

print "2. @sorted_numbers[1]\n";

print "3. @sorted_numbers[2]\n";

print "4. @sorted_numbers[3]\n";

print "5. @sorted_numbers[4]\n";

$sum = 0;

$x = 0;

$size = @numbers;

while($x<($size)){

$sum += @numbers[$x];

$x +=1;

}

print "sum of data is $sum \n";

$avr = $sum/$size;

$minv = @sorted_numbers[$size - 1];

$maxv = @sorted_numbers[0];

print "Size of array: $size.\n";

print "Average: $avr\n";

print " Max: $maxv \n";

print " Min: $minv \n";

Connect to server using perl

#!/usr/bin/perl/

use IO::Socket;

print "Trying to connect to 194.47.155.200:1579\n"; 

$socket = IO::Socket::INET->new(

PeerAddr => 194.47.155.200,

PeerPort => 1579,

Proto => "tcp",

Type => SOCK_STREAM) 

or die "Couldn³t connect to 194.47.155.200:1579: $@ \n";

$socket->autoflush();

$pid=$$;

$uname= "omar09";

$sentBytes=0; 

$tStart = [gettimeofday];

print $socket "$uname\n";

$index=0;

while ($msg=<$socket>) {

chomp($msg);

if($msg=~/:/){

($a,$b)=split(':',$msg);

$myNumbers[$index]=$b;

print "Got; $msg \n";

$index++;

} else {

print "Control message.\n";

print $msg . "\n";

}

}

print "Server ended\n";

print "Got " . ($index+1) . " values.";

close($socket);