#!/usr/bin/perl

use strict;
use warnings;

my $thing;

$thing = {
   'A' => 'hello',
   'B' => 'there'
};

$thing = {
   'C' => 'cutie',
   'D' => 'pie'
};

print "$thing->{'A'} $thing->{'B'} $thing->{'C'} $thing->{'D'}\n";