sub getcrprrumba
{
    my @CRPRRumba;
    my @QUERY_RESULT;

@QUERY_RESULT=`ccm query -u -f  "%displayname;%crstatus"  -t problem "platform_component_name='RUMBA' and platform_module_name='Entertainment' and module_comp_version='Rumba/B11.8' and (crstatus='test' or crstatus='solved' or crstatus='concluded') and test_date>time('Fri Nov 10 16:51:26  2006')  and test_date<time('Wed Nov 22 16:52:46 2006')"`;

chomp(@QUERY_RESULT);

@CRPRRumba = qx(@QUERY_RESULT);
    return(@CRPRRumba);
}

open my $wfh,'>',$target_file or die $!;
for(0..2){
    print $wfh getcrprrumba();
}

print join("\n", @CRPRRumba) . "\n";

map { s/$/\n/ } @arr;

print @arr;