perlで、ルビを振る

perl

標準入力の文字列にルビを振って表示するプログラム。

#!/usr/bin/perl

use strict;
use warnings;

#対応を定義
my %hash = ('A','エー','B','ビー','C','シー','D','ディー','E','イー','F','エフ','G','ジー','H','エイチ','I','アイ','J','ジェイ','K','ケイ','L','エル','M','エム','N','エヌ','O','オー','P','ピー','Q','キュー','R','アール','S','エス','T','ティー','U','ユー','V','ブイ','W','ダブリュー','X','エックス','Y','ワイ','Z','ゼット','a','エー','b','ビー','c','シー','d','ディー','e','イー','f','エフ','g','ジー','h','エイチ','i','アイ','j','ジェイ','k','ケイ','l','エル','m','エム','n','エヌ','o','オー','p','ピー','q','キュー','r','アール','s','エス','t','ティー','u','ユー','v','ブイ','w','ダブリュー','x','エックス','y','ワイ','z','ゼット','0','ぜろ','1','いち','2','に','3','さん','4','よん','5','ご','6','ろく','7','なな','8','はち','9','きゅう',);

print "$ARGV[0]\n";

#標準入力から1文字ずつ取り出し、ルビを出力する
foreach my $ch (split //, $ARGV[0]) {
	print "$hash{$ch} ";
}

作ってみたものの、使ったことは一度もないです。