Select Code to Download

use strict;
use warnings;

use autodie;

$data_type_number=@data_type_array;
for($i=0;$i<$data_type_number;$i++)
{
    ...
}

for (0 .. $#data_type_array) {
    ...
}

#!/usr/bin/env perl -l

...
apple plant
strawberry plant
muffler goods

$ cat pm_1155794_animal.txt
cat
...
strawberry
$ cat pm_1155794_goods.txt
muffler