#!/usr/bin/perl

my %query_score;
while ( <DATA> )

{
    chomp;
    ($value1,$value2,$Mark,$Name,$Country) = split(/\t/,$_);
    push( @{ $query_score{"$Name:$Country"}{position} },$value2);
    $query_score{"$Name:$Country"}{Mark} = $Mark;
    $query_score{"$Name:$Country"}{Start} = $value1;
   
}
foreach $key ( sort keys %query_score )
{
    ($Name,$Country) = split(/:/,$key);
    @positions =  sort @{ $query_score{$key}{position} };
    $Mark = $query_score{$key}{Mark};
    $value1 = $query_score{$key}{Start};
    $min = shift(@positions);
    $max = pop(@positions);
    print("$value1\t$value2\t$Mark\t$Country\t$min\t$max\n");
   
}


__DATA__
532     1148    a       andrew2  Norway
1547    1573    b       mathew3  US
2013    2190    c       mathew  US
2096    2158    d       mathew  US
2896    2980    e       docker5   UK
3919    4622    f       king4  Aus
4180	4353	g	king	Aus
6621	6758	h	lover4	Canada
7475	7568	i	nun8	Mexico
7645	7725	j	brazil9	Brazil
7817	8008	k	brazil9	Brazil
8172	8309	l	brazil9	Brazil
8399	8536	m	brazil9	Brazil