@se_rules_name = (); @se_rules_hostname = (); @se_rules_username = (); @se_rules_password = (); @se_rules_path = (); my $i = 0; for my $rindex (@$se_rulesfile) { $se_rules_name[$i] = $rindex->{name}; $se_rules_hostname[$i] = $rindex->{hostname}; $se_rules_username[$i] = $rindex->{username}; $se_rules_password[$i] = $rindex->{password}; $se_rules_path[$i] = $rindex->{path}; print "$se_rules_hostname[$i],$se_rules_name[$i],$se_rules_username[$i],\n"; $i++; }