Array of Hash of Array 흠...왜 이딴게 이리 아무 생각 없이 된다지..제길..

@trans_corp = (
  {
      name         => "daehan",
      confirm_url  => "vvv",
      fail_url        => "bbb",
      status        =>  0,
      confirm_str  => "택배사원집화|택배사원입고|타점발송",
      fail_str        => "검색된 결과값이 없습니다",
      userlist       => ["a","b"],
  },
  );
 
  printf "검증 시작\n";


for $href ( @trans_corp ) {
   while ( ($key, $value) = each %$href ) {
     
     if ( $key eq "userlist" )
     {        
         for $i ( 0 .. $#{ $value } ) {
              print "        $i = $href->{userlist}[$i] \n";
          }
      }
        else
        {
         print "$key=$value \n";
         }
    }
   
}