while ($tempData = <DataIN>) {
        chomp($tempData);
        $listTemp = [];
        @$listTemp = split(/,/ , $tempData);
        push (@listFinal, $listTemp);
}

return @listFinal;