Select Code to Download

$fh = *DATA;

...
item1,data1
item2,data2
item3,data3

use vars qw($fh);

...

    return $results;
}