open(my $fh, "<", my_file.log") 	or  die "cannot open, ($!)\n";

     while (<$fh>) {
     
	 chomp;
     next unless $_ =~ /Key/i;