The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!pugs
use v6;

module t_LKT_B_L_Fre;

my $xy = 'BF'; # is constant
my Str %text_strings = ( # is constant
	'two' => $xy~' - sky pie rye',
	'three' => $xy~' - eat {knife}',
);

sub get_text_by_key( Str $msg_key ) returns Str {
	return %text_strings{$msg_key};
}