#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use WWW::Salesforce;
use Data::Dumper;

my $sforce = eval { WWW::Salesforce->login(
                    username => 'xxxxxxx',
                    password => 'xxxxxxx',
					serverurl=> 'https://xxxxxxx.salesforce.com/services/Soap/u/34.0'); };
die "Could not login to SFDC: $@" if $@;

my @tableattribute_ref=$sforce->describeGlobal()->result->{sobjects};


##</code><code>##

       [
          {
            'custom' => 'true',
            'deletable' => 'false',
            'retrieveable' => 'true',
            'layoutable' => 'true',
            'queryable' => 'true',
            'createable' => 'false',
            'customSetting' => 'false',
            'deprecatedAndHidden' => 'false',
            'undeletable' => 'false',
            'triggerable' => 'true',
            'keyPrefix' => 'a0k',
            'name' => 'x1',
            'updateable' => 'false',
            'feedEnabled' => 'false',
            'mergeable' => 'false',
            'searchable' => 'true',
            'replicateable' => 'true',
            'labelPlural' => 'x1s',
            'activateable' => 'false',
            'label' => 'x1'
          },
          {
            'custom' => 'true',
            'deletable' => 'false',
            'retrieveable' => 'true',
            'layoutable' => 'true',
            'queryable' => 'true',
            'createable' => 'false',
            'customSetting' => 'true',
            'deprecatedAndHidden' => 'false',
            'undeletable' => 'false',
            'triggerable' => 'false',
            'keyPrefix' => 'a16',
            'name' => 'x2',
            'updateable' => 'false',
            'feedEnabled' => 'false',
            'mergeable' => 'false',
            'searchable' => 'true',
            'replicateable' => 'true',
            'labelPlural' => 'x2s',
            'activateable' => 'false',
            'label' => 'x2'
          },
          {
            'custom' => 'false',
            'deletable' => 'true',
            'retrieveable' => 'true',
            'layoutable' => 'false',
            'queryable' => 'true',
            'createable' => 'true',
            'customSetting' => 'false',
            'deprecatedAndHidden' => 'false',
            'undeletable' => 'false',
            'triggerable' => 'false',
            'keyPrefix' => '083',
            'name' => 'x3',
            'updateable' => 'false',
            'feedEnabled' => 'false',
            'mergeable' => 'false',
            'searchable' => 'false',
            'replicateable' => 'true',
            'labelPlural' => 'x3s',
            'activateable' => 'false',
            'label' => 'x3'
          }
        ];


##</code><code>##

my $tableattribute_ref=$sforce->describeGlobal()->result->{sobjects}[#]{name}; 

##</code><code>##

my $count;
$count = 0; 
while ($count >= 0) {
$tableattribute_ref=$sforce->describeGlobal()->result->{sobjects}[$count]{name}; 
#This is where I can push names to an array
$count++;
}