supriyoch_2008:

In addition to the other fine advice you've received, I'd suggest you change this:

unless ( open(FILE, $filename) ) {
  print "Cannot open file \"$filename\"\n\n";
  exit;
}
[download]

to this:

open my $FILE, '<', $filename 
  or die "Cannot open file '$filename': $!\n";
[download]

It's a much more common usage. I'd also change this:

# Sum of all elements in array:
$sum=0;
$sum=eval join '+',@array;
[download]

to this:

# Sum of all elements in array:
$sum=0;
$sum+=$_ for @array;
[download]

That way, you can avoid a potentially scary string eval. Since you're getting the data for your string from an external source, it's possible that someone might create a string that would let you compromise your system.

...roboticus

When your only tool is a hammer, all problems look like your thumb.