#!/usr/bin/perl -wT

use strict;

my %first;
my %second;
my %third;

$first{charles} = "success!";

$second{gina} = "charles";

$third{scott} = "gina";

print "$first{$second{gina}}\n";