#!/usr/local/bin/perl -w
#
#
#
####

use strict;

####
#
#
#
####

my $past_file = "pastinv.txt";
open(PFILE,"$past_file") || die "$past_file,$!";
my @pinv1 = <PFILE>;
close PFILE || die "$past_file,$!";


####
#
#
#
#
####

my @tmp_pinv = "@pinv1";
my $count = @pinv1;
my ($i,@sue,@mike,@steve);

for ($i = 0; $i<= $count -1; $i++) {
        my $line = shift(@pinv1);
        chomp $line;
        if ( $line =~ /Region/ ) {
              $line =~ s/\s+/ /g;
              my($region,$reg_num,@name) = split(/ /,$line);
                if ( $reg_num =~ /(7A)/ ) {
                     unshift(@steve,$region,$reg_num,@name);
                     print "@steve\n";
                     #region_info(\@steve,\@tmp_pinv);
                }elsif ( $reg_num == 7 ) {
                     unshift(@sue,$region,$reg_num,@name);
                     print "@sue\n";
                }elsif ( $reg_num == 8 ) {
                     unshift(@mike,$region,$reg_num,@name);
                     print "@mike\n";
                        }
        }else{
                next;
                }
        }