>>29
$hensu1〜3 と $kotae1〜3 は配列にスレ。
たくさん並んでいる if 文は連想配列がいいかと思う。

こんな感じ... (perl うろ覚えだし、実行環境が手元にないからあくまでも感じだけね。)

my @hensu, @kotae;
my %Map;
$Map{1} = 1;
$Map{13} = 2;
$Map{111} = 13;
for(my $i = 1..3){
　$kotae[$i] = $Map{$hensu[$i]};
}