#!perl
# a sample of yomi hyoki shogo

use ShiftJIS::Collate;

my @data = (
  [qw/ ¬ŽR ‚¨‚â‚Ü /],
  [qw/ Ž™“‡ ‚±‚¶‚Ü /],
  [qw/ ¬“‡ ‚±‚¶‚Ü /],
  [qw/ ¬“ˆ ‚±‚¶‚Ü /],
  [qw/ ¬ŽR ‚±‚â‚Ü /],
  [qw/ —é–Ø ‚·‚¸‚« /],
  [qw/ “c’† ‚½‚È‚© /],
  [qw/ ‰i“c ‚È‚ª‚½ /],
  [qw/ ’·“c ‚È‚ª‚½ /],
  [qw/ ŽR“c ‚â‚Ü‚¾ /],
);

@sort = ShiftJIS::Collate->new()->sortYomi(reverse @data);

print "@$_\n" foreach @sort;