>>128, >>129, >>130

ありがとうございます。
>>129さんの方法を組み込もうと思っているのですが、せっかく教えていただいたのに
使い方がイマイチ理解できません･･･。

>>127の時点で考えていたことは、

sub sort
　{
　$i = 0;
　while ( $_ = <FP> )
　　{
　　　if ( $_=~ /(A|B|C) \| ON (\S+) \| OFF (\S+) \| (\S+)/ )
　　　　{
　　　　　$value[$i] = $4;
　　　　}
　　$i++;
　　}
　}

@value_sort = sort {$a <=> $b} @value;
print WRITE @value_sort;

というような考えだったのです。
>>129さんの最後の行をこの関数sortの中に入れて、関数 get_sortkey を
関数sortの外に記述する、といった感じなのですか？

せっかく教えていただいたのに理解できずに申し訳ないです。
勉強を続けなくては…。