Thank youfor( my $i = 0; $i <= $#columns; $i++){ push @{$first{$t_name}{$tab}{$sp}} , $ +columns[$i] ; } for my $fr ( sort keys %first ) { for my $tg ( sort keys %{ $first{$fr} +}) { for my $ab ( sort keys %{ $first{$fr} +{$tg} }) { foreach my $rt ( @{$first{$fr}{$tg}{$ab}}){ my $val = $first{$fr}{$tg}{$ab}{$rt} ; print " print $fr, $tg, $ab, $first{$fr}{$tg}{$ab}{$rt} "; } } } }
In reply to Cant coerce by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |