$ perl x.pl
THIRD: 0188 - 0000007777 - 40
THIRD: 0188 - 0000009980 - 41
THIRD: 0123 - 0000008888 - 50
THIRD: 0123 - 0000009999 - 51

##</code><code>##

use strict;
use warnings;

use Data::Dumper;

my %h;
my $itemArea = 1;
my $itemID = 1;

$h{$itemArea}{$itemID} = [qw(a b c)];

print Dumper \%h;


##</code><code>##

$VAR1 = {
          '1' => {
                   '1' => [
                            'a',
                            'b',
                            'c'
                          ]
                 }
        };