RosettaCodeData/Task/Dynamic-variable-names/Perl-6/dynamic-variable-names.pl6

my $vname = prompt 'Variable name: ';
$GLOBAL::($vname) = 42;
say $GLOBAL::($vname);