Array of Array / Union

[Hannes]

Hi,

ich hab das mal so laufen lassen:

my %h;  
foreach my $line (@a)  
{  
my @t = split (/;/,$line);  
  
   if( exists $h{ $t[0] . $t[2] } )  
{  
  
  
      $h{ $t[0] . $t[2] }[0] > $t[3]  
         ? next  
         : (push @{ $h{ $t[0] . $t[2] } } , $t[3], $_)  
      ;  
   }  
   else{  
  
      push @{ $h{ $t[0] . $t[2] } } , $t[3], $_;  
  
   }  
}  
  
  
@a =();  
foreach( keys %h ){  
  push @a, $h{$_}[1];  
}  
  
  
print @a;  

Leider ist in @a nicht das gewünschte Ergebnis.

Use of uninitialized value in print at ./symmaskdb_new.pl line 61.
Use of uninitialized value in print at ./symmaskdb_new.pl line 61.
Use of uninitialized value in print at ./symmaskdb_new.pl line 61.

ciao,
Hannes