#!/usr/bin/perl

use strict;

my $resfile = 'ground.txt';
my $comfile = 'grndcomm.txt';
my $zonefile='delzone.txt';

my @res;
my @com;
my @zone;

&buildrates;
&buildzones;

sub buildrates{
    my $line;
    open FH, $resfile;
    while ($line = <FH>){
           my ($index, $z2, $z3, $z4,
               $z5, $z6, $z7, $z8)= split(',',$line);
           $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8];
           }
    close FH;
    open FH, $comfile;
    while ($line = <FH>){
           my ($index, $z2, $z3, $z4,
               $z5, $z6, $z7, $z8)= split(',',$line);
           $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8];
           }
    close FH;
    }


sub buildzones{
    my ($x, $y, $line);
    my $i=0;

    open FH, $zonefile;

    while ($line = <FH>){
                         ($x,$y) = split(',',$line);
                         if (length($x)<=3){ $zone[$x]=$y }
                         else{
                              (my $temp, $x) = split('-',$x);
                              for ($temp..$x){ $zone[$_]= $y; }
                              }
                         }
    }