#!/usr/bin/perl -w

use strict;

my %minmax;


foreach (@ARGV) {
    open(F, "< $_");
    while(my $line = <F>) {
        chop($line);
        my @p = split(/\t/,$line);

        if(!exists( $minmax{ $p[0] }{ min } )) {
            $minmax{ $p[0] }{ min } = $p[1];
        }
        if($p[1] < $minmax{ $p[0] }{ min }) {
            $minmax{ $p[0] }{ min } = $p[1];
        }

        if(!exists( $minmax{ $p[0] } { max } )) {
            $minmax{ $p[0] }{ max } = $p[2];
        }
        if($p[2] > $minmax{ $p[0] }{ max }) {
            $minmax{ $p[0] }{ max } = $p[2];
        }

    }
    close(F);
}
foreach (keys %minmax) {
    print "$_: min: $minmax{$_}{min} max: $minmax{$_}{max}\n";
}