print "\nAfter deleting the keywords...\n"; for ($ii=$keynum; $ii<=$keynum+1;$ii++) { fits_read_record($fptr,$ii,$card,$status); print $card,"\n"; }