#print(@QUERY_RESULT);
open(my $listfile,'>',$datatxt) or die $!;
print $listfile "rumba cr + pr";
print $listfile @QUERY_RESULT;
close ($listfile);