Hi Perl Monks,

The requirement is to convert the elements of an array into corresponding key-value pairs.

The logic is either of the following :
The even-indexed elements are keys to the immediate succeeding odd-indexed elements which are corresponding values.
Or,
The elements in uppercase are keys with the next element as its corresponding value if it is not an uppercase element.

Using the second logic, i have the following code and output :

my $help_hash;
my $key;

my @help_arr = qw(NAME larry SURNAME wall CODE perl);

foreach my $element(@help_arr) {

        if ($element =~ /^[A-Z]{3,}$/){
                $key = $element;

        }else{
                $help_hash->{$key} = $element;

        }

}

print Dumper ($help_hash);
[download]

-----OUTPUT------

$VAR1 = {
          'SURNAME' => 'wall',
          'NAME' => 'larry',
          'CODE' => 'perl'
        };
[download]

Is there a more efficient way to do the same ?