1   0    0.00       0    0    0   
 2   0    0.00       0    0    0   
 3   0    0.08       0    0    0   
 4   0    0.05       0    0    0   
 5   0    0.08       0    0    0   
 6   0    0.05       0    0.12    0   
 7   0    0.05       0    0.12    0   
 8   0    0.04       0    0.15    0   
 9   0.07    0.07       0    0.15    0.18   
 10   0.29    0.04       0.32    0.32    0.19   
 11   0.46    0.05       0.42    0.30    0.21   
 12   0.45    0.07       0.35    0.29    0.41   
 13   0.57    0.07       0.42    0.00    0.47   
 14   0.46    0.04       0.62    0.00    0.58   
 15   0.39    0.05       0.41    0.00    0.37 

##</code><code>##

 10   0.29    0.04       0.32    0.32    0.19   
 11   0.46    0.05       0.42    0.30    0.21   
 12   0.45    0.07       0.35    0.29    0.41   
 13   0.57    0.07       0.42    0.00    0.47   
 14   0.46    0.04       0.62    0.00    0.58   

##</code><code>##

10-14 0.57 0.07 0.62 0.32 0.58

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;
use English;
use FileHandle;

use Exception;

my $input = shift;

my $count = 0;

my $largest_cons1 = 0;
my $largest_cons2 = 0;
my $largest_cons3 = 0;
my $largest_cons4 = 0;
my $largest_cons5 = 0;

open(FILE, "$input") || die "ERROR: Unable to open input file: $!\n";

while(<FILE>)
{
    my @data = split(/\s+/, $_);

    $count++;

    my $pos = $data[1];
    my $cons1 = $data[2];
    my $cons2 = $data[3];
    my $cons3 = $data[4];
    my $cons4 = $data[5];
    my $cons5 = $data[6];

   if($count < 5)
   {
      
      if($cons1 > $largest_cons1)
       {
	   $largest_cons1 = $cons1;
       }

      
        if($cons2 > $largest_cons2)
       {
	   $largest_cons2 = $cons2;

       }

        if($cons3 > $largest_cons3)
       {
	   $largest_cons3 = $cons3;

       }

        if($cons4 > $largest_cons4)
       {
	   $largest_cons4 = $cons4;

       }

        if($cons5 > $largest_cons5)
       {
	   $largest_cons5 = $cons5;

       }


   }

    
    print "$pos $largest_cons1 $largest_cons2 $largest_cons3 $largest_cons4 $largest_cons5\n";
}