my $i = 0; my $j = 0; my $k =0; foreach my $se_index (@{$Yaml_Lib::standalone_exec}) { foreach my $se_runid (@{$Yaml_Lib::se_tgt_list[$i]}) { print " run target : $Yaml_Lib::se_run_target_username[$j]\n"; foreach my $rindex ( @{$Yaml_Lib::se_rulesfile[1]} ) { print "rules index = $rindex\n"; print "$Yaml_Lib::se_rules_name[$k]\n"; $k++; } $j++; } $i++; }