#!/usr/local/bin/perl
use strict;
use warnings;


my $name = "安藤";
my $old = 16;

print $name, "=", $old, "¥n";