my $::("-O'Malley's") = 42; say $::("-O'Malley's");