open LISTE, "list.txt";

while(<LISTE>){
        $_=shift(@_);
        if (m/$key=(\d+)/ && $1 >= $min && $1 <= $max){
                print;
        }
}