@ORGのm番目からn番目までの要素だけを配列として取り出すには、どうするのがスマートでしょう？

for ($i=m;$i<=n;$i++){
　　　　push (@tmp_ORG,$ORG[$i-1]);
}
@ORG = @tmp_ORG;

てなもんでしょうか？
いや、便利な関数とかあるのかなと思ったもので