print "Start\n";
my $hash = { key => 'value1' . get_value() };
print "hash created\n";
print "accessing hash key\n";
my $key = $hash->{'key'};
print "hash key is '$key'\n";
print "Finish\n";

sub get_value {
	print "get_value() called\n";
	return "value";
}