I wonder if you would do better with two hashes rather than two arrays. You could join your array with newlines and open a filehandle against a reference to the resultant scalar. You could then read it in paragraph mode one record at a time and use splits in maps to populate the hashes.

$ perl -Mstrict -Mwarnings -MData::Dumper -E '
my @array = (
   q{CPU Temp = 30},
   q{GFX Temp = 45},
   q{RAM Temp = 40},
   q{},
   q{CPU Status = OK},
   q{GFX Status = OK},
   q{RAM Status = OK},
   );
open my $inFH, q{<}, \ do { join qq{\n}, @array } or die $!;

my( %temps, %stats );
{
    local $/ = q{};
    %temps =
       map { split m{\s+=\s+} }
       map { split m{\n} }
       scalar <$inFH>;
    %stats =
       map { split m{\s+=\s+} }
       map { split m{\n} }
       scalar <$inFH>;
}

print Data::Dumper
   ->new( [ \ %temps, \ %stats ], [ qw{ *temps *stats } ] )
   ->Sortkeys( 1 )
   ->Dumpxs();'
%temps = (
           'CPU Temp' => '30',
           'GFX Temp' => '45',
           'RAM Temp' => '40'
         );
%stats = (
           'CPU Status' => 'OK',
           'GFX Status' => 'OK',
           'RAM Status' => 'OK'
         );
$

[download]

I hope this is helpful.

Cheers,

JohnGG

In reply to Re: Using the map function by johngg
in thread Using the map function by cspctec

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.