#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my %test = ();
%test = (
    foo     => 'bar',
    test    => $test{foo},
);
print "'$test{test}'\n";