条件にあてはまる変数を抽出したい

Perl初心者です。お願いいたします。
下記のような動きを実現したいのですが、どのような方法があるでしょうか。
できる限りすっきり書きたいのですが、自分で書きますと全パターンを記述していく・・等しか思いつきませんでした。お分かりになる方お教えいただけますと助かります。

$a1、$a2、$a3、$a4、$a5、$a6の6種類のデータがあり、いずれも「１」または「２」が代入されます。
その時に「１」が代入されたもののうち、aの後ろの数字が大きいほうの変数を抽出したいです。

たとえば、$a1、$a2、$a3、$a4、$a5、$a6　のデータが、1、2、2、1、1、2　であれば、「１」のうち数字が大きいのは$a5　なので　$TOP = $a5； 、としたいです。

宜しくお願いします。

No.5 ベストアンサー 回答者： _--_1l1_1_ 回答日時： 2011/12/17 14:40

表示がくずれるので空白2文字を全角空白1文字で書いていることに注意

use strict;
use warnings;
use feature 'say';

my $a1 = 1;
my $a2 = 2;
my $a3 = 3;
my $a4 = 1;
my $a5 = 2;
my $a6 = 3;

my $top = 'Not Found';
for my $num ( reverse 1 .. 6 ) {
　　my $var = eval '$a' . $num;
　　if ( $var == 1 ) {
　　　　$top = $num;
　　　　last;
　　}
}
say $top; # 4

この回答へのお礼

お礼が遅くなりまして申し訳ありません。
皆さまのアドバイスで大変勉強になりました。_--_1l1_1様の例で無事実現に至りました。
つたない質問に回答くださり大変ありがとうございました。

お礼日時：2012/03/15 20:36

No.4 回答者： osamuy 回答日時： 2011/12/17 10:34

回答No.3さんの言うとおり、最初から配列としてデータを構成するようにしたほうが良いと思います。

ということでこんなのとか：

http://www.ideone.com/qw7nw

No.3 回答者： sakusaker7 回答日時： 2011/12/17 02:34

>$a1、$a2、$a3、$a4、$a5、$a6の6種類のデータ

配列を使わないのはなぜですか?

No.2 回答者： jjon-com 回答日時： 2011/12/17 02:18

if ($a1 == 1) {$TOP = 1;}

if ($a2 == 1) {$TOP = 2;}
if ($a3 == 1) {$TOP = 3;}
if ($a4 == 1) {$TOP = 4;}
if ($a5 == 1) {$TOP = 5;}
if ($a6 == 1) {$TOP = 6;}

No.1 回答者： Tacosan 回答日時： 2011/12/17 01:00

そこの「たとえば」の状況では $TOP の値は 1 となりますが, それでいいのですか?

ちなみに, 値が 1 のものがないときにどうすればいいのかも書かれていませんね.

この回答への補足

早速ありがとうございます。そしてご指摘助かります。
TOPが「１」では困ります。。すみません、$TOP＝5　にしたいです。
それから「１」が全くなかった場合ですが、その場合は別処理で、このプログラムを通らずに進むことになっていて、そちらの方は動いています。
なので「１」が全くない場合はない、と思っていただけると幸いです。

補足日時：2011/12/17 01:08