No reason not to use a lexical.

use strict;

my $HELLO = 'Hello';

sub new_message {
    $HELLO = 'Nihao';
}
[download]