my ($name, $msg); $name = 'Taro'; $msg = <