Subroutine Perl

print "${&getmessage}";
sub getmessage {
    $msg = "Hello!";
    return "msg"
};