Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "$num from $info->[0]:$info->[1]\n";
    }
}

Found sequence:
204 from ARRAY(0x814bc28):1
...
313 from ARRAY(0x8188c30):1
314 from ARRAY(0x8188ed0):2
315 from ARRAY(0x8188e94):2