use Encode qw/ encode decode /;
my $name_coded = encode("7bit-jis", decode("euc-jp",$name));