#!/usr/bin/perl
# Script part 1.
use warnings;
use strict;


my $code = << '__CODE__';
    %list = ( scalar => 'Plain',
              ref    => 'Overwritten' );
    $list{ref}{selected} = 1;

    for my $key (keys %list) {
        print "$key: $list{$key}";
        print " - Selected" if $list{$key}{selected};
        print "\n";
    }
__CODE__


{   no strict;
    my %list;
    eval $code;
    print "Wow: $Overwritten{selected}\n";
}