Select Code to Download

for (@$aref) {
    $flag = 1 if $_== 6;
    push @new, $_ unless $flag;
    $flag = 0 if $_== 7;    
}