CGIだけど、なんか質問ある？ part 6

配列の中からある条件に一致するものを抜き出して別の配列に入れるにはどうしたらいいのですか？
こんな感じでやってるんだけどもっといいやり方が在ると思うので。

$c = 0;
foreach(@list){
if($_ =~ /^Location_URL=.*/){
m/Location_URL=(.*)/;
$URI[$c] = $1;
$c++;
}
}