it doesn’t work

JIS X 0208の區點番號を入力してUTF8の文字列を得たい。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Encode;

my @kuten = qw/70 80/;

print encode ( "utf8", &kuten ( @kuten ) );

sub kuten {
	my ( $row, $cell ) = @_;
	decode ( "euc-jp", pack ( "C*", sprintf ( "%x", $row ) + 0xa0, sprintf ( "%x", $cell ) + 0xa0 ) );
}

結果: 厘
期待値: 胛

どうしたらいいんだらう。