my %hash1 = ( 1  => '1',


              83 => '1',

              90 => '1',

             120 => '1',

             140 => '1',

             300 => '1'

            );



my @array = ('83', '140');



for (@array){

     delete $hash1{$_};

}