my $counter=0;
    foreach my $element (@result) {
    print "\nCHECKPOINT\n $result[$counter]\n";
    $counter ++;
    }