Shell Programming and Scripting

#!/usr/bin/perl

my %hashTree;
my @array;

while (<>) {
  chomp;
  @array=split;
  $hashTree{$array[0]}{$array[3]}=[$array[1] ,$array[2]];
}

my ($hashTreeRef,$groupName,$srNo,$status,$groupName);

foreach ( keys %hashTree ) {
  undef $hashTreeRef;
  undef $groupName;

  $hashTreeRef=$hashTree{$_};
  $groupName=$_;

  undef $srNo;
  undef $status;
  undef $vT1;
  undef $vT2;
  undef @vT1T2;

  foreach ( keys %$hashTreeRef ) {
    #printf  "$_ ------\n";
    $srNo=$_;
    if($$hashTreeRef{$_}[0] eq "T1") { $vT1=$$hashTreeRef{$_}[1]; $vT1Flag=1;}
    if($$hashTreeRef{$_}[0] eq "T2") { $vT2=$$hashTreeRef{$_}[1]; $vT2Flag=1;}
    if($$hashTreeRef{$_}[0] eq 'T1*T2') {
          push @vT1T2,$$hashTreeRef{$_}[1];
    }
  }
  if ( ( defined ($vT1) and defined ($vT2) ) and $vT1 ne $vT2 ) {
          foreach my $i (@vT1T2) {
            $status= $vT1T2[$i] eq $vT1 ? "T1-like" : $vT1T2[$i] eq $vT2 ? "T2-like" : "different";
            printf "$groupName\t$$hashTreeRef{$_}[0]\t$vT1T2[$i]\t$srNo\t$status\n";
      }
    }

}