めっちゃ初心者質問すみません。
10000以上100000未満の整数の乱数を、１万の位と、１の位に同じ数字が揃うまで
繰り返し発生させるプログラムをPerlで作りたいのですが...
何度挑戦しても分かりません↓
while(){
$number=int(rand(100000-10000+1))+10000;
if($number =~ / (\d)(\d)(\d)(\d)(\d) / ) {
$ichi = $1;
$man = $5;
}
if($ichi==$man){
print"$number\n";
last;
}
print"$number\n";
}

ばかですみません。教えてください!!