my $element_rowlimit = name( 'rowLimit' => 10000 );
#print $soap->serializer->envelope( 'method' => 'GetListItems', $element_listname, $element_query, $element_rowlimit );
my $som = $soap->GetListItems( $element_listname, $element_query, $element_rowlimit );
my @results = $som->dataof('//GetListItemsResult/listitems/data/row');

    my $oc = Text::CSV->new({sep_char => ',', eol => $/ })
        or die Text::CSV->error_diag();
    open my $of, '>', 'Load_Data.csv' or die $!;
    binmode $of, ':utf8';
           chomp @results;
           foreach my $data (@results) {
              my $item = $data->attr;
              chomp $item;
              $oc->print($of,[@$item{qw( ows_Job_x0020_ID ows_Justification )}]);

 }
close $of;